puo andare cosi??

codice:
Dim rs_01
Set rs_01= Server.CreateObject("ADODB.Recordset")
rs_01.ActiveConnection = MM_conn_blocconote_STRING 
rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx)),strnNome,strTitolo,strMessaggio,strData)
rs_01.CursorType = 0
rs_01.CursorLocation = 3
rs_01.LockType = 3
rs_01.Open()
MM_conn_blocconote_STRING.Execute
Next
perche non mi funziona...!