Sytaxfel i insert-into?

När jag kör denna så får jag syntaxfel

Private Sub Command6_Click()
    Call dbcallOpen
            connect.Execute ("INSERT INTO [active] (a_id, a_start) VALUES(" & Text7.Text & ",'" & Now & "'"), , 128
    Call dbcallClose
End Sub

Jag har testat att göra så här, och det funkar:

Private Sub Command6_Click()
Dim rs As Recordset
    Call dbcallOpen
    Set rs = connect.Execute("select * from [active] where a_id=22")
    
    MsgBox (rs(0) & " | " & rs(1) & " | " & rs(2) & " | " & rs(3))
    
    rs.Close
    Set rs = Nothing
    Call dbcallClose
End Sub

Vad är fel?

Du har glömt slutparentes för VALUES.

Japp, jag kom på det... :)

Man kan även se till att få ut en utskrift av SQL-frågan, så blir det lättare att se sina misstag.

Dessutom passar jag på att förflytta tråden till SQL, så du lär dig att det finns ett sånt forum också. ;-)

Mvh
anders

Bahh, jag hade ju gjort det, men har kanske drabbats av snöblindhet... ;)