Ik heb volgend script en ik krijg een error 3001 op lijn "rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic"
wat doe ik fout?
Code:
Private Sub InsertData()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
ConnectDB
With wsScores
For rowCursor = 2 To 15
strSQL = "INSERT INTO scorebord (tornooi, figuur, poule, naam, punten, pogingen) " & _
"VALUES ('" & esc(.Cells(rowCursor, 2)) & "', " & _
"'" & esc(.Cells(rowCursor, 3)) & "', " & _
"'" & esc(.Cells(rowCursor, 4)) & "', " & _
"'" & esc(.Cells(rowCursor, 5)) & "', " & _
"'" & esc(.Cells(rowCursor, 6)) & "', " & _
"'" & esc(.Cells(rowCursor, 7)) & "')"
MsgBox strSQL
rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Next
End With
End Sub
wat doe ik fout?