[VBA / Excel / SQL]query all'interno di un loop

[RaouL_BennetH]

Ciao a tutti :)

con vba devo leggere dei valori presenti su un foglio di excel ed inserirli all'interno di un db.

In linea di massima ci sono, avrei solo problemi con la sintassi:


Dim oConn As ADODB.Connection

Private Sub ConnectDB()

Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=magazzino;" & _
"USER=raoul;" & _
"PASSWORD=benneth;" & _
"Option=3"


End Sub

Function EscapeChar(s as String)
s = Trim(Replace(s, "'", "\'")
End Function

Private Sub InsertData()

Set rs = New ADODB.Recordset
ConnectDB
With articoli

'inizio a ciclare per le righe
For rowCursor = 2 To 140
strSQL = "INSERT INTO articoli(cfornitore, cinterno, descrizione, " & _
"ean, iva, um, costo, forni1, c_prezzo, " & _
"c_statistica, precan, grp_merce ) " & _
"VALUES "

'ciclo fra le colonne
For i = 1 To 12

strSQL = " (s(.Cells(rowCursor, i)) ) "


Next

rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Next

End With



End Sub



Mi dareste una mano con la sintassi giusta ?

Grazie mille.

RaouL.