[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.