Access 2002 & VBA - INSERT INTO Anweisung

Jacizzle

Mitglied
Habe ein Problem und zwar bei diesem Code:

Code:
    Dim con As New ADODB.Connection
    Dim RS As ADODB.Recordset
    Dim strEintrag As String
    Dim conStr As String
    
    strEintrag = Me.txtName

    conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Doku.mdb"
    con.Open conStr
    
    Set RS = New ADODB.Recordset
    RS.Open "tblAnsprechpartner", con, adOpenDynamic
    
    CodeDb.Execute ("INSERT INTO tblAnsprechpartner(Name) VALUES (strEintrag)")

Wenn ich nun auf den Button klicke, was dieses Event hier ausführt.. kommt ein Fehler, der da lautet:

"Laufzeit fehler '3061': 1 Parameter erwartet, aber zu wenig Parameter übergeben"

Der Fehler wird in der Zeile mit dem CodeDb.Execute angezeigt.. hinter dem Values(strEintrag)" .. fehlt noch ein Parameter namens "Option" .. aber ich habe echt keine Ahnung was da reinkommt, weil ichs weder in der Hilfe finde, noch im Internet.. kann mir da evt. mal einer helfen? .. Ich hab da mal was eingetragen was ich in der Hilfe gefunden hab und zwar irgendwas mit dbRun... dann kam nen Fehler "Erwartet:=" ...

Vielleicht kann mir ja mal einer helfen...
 
Zurück