VB6 and MS access

[Melkske]

Hallo,

I have a little problem to update an access data base.
Writing new records into the db is no problem.

The code for my update button is the following

Private Sub cmdUpdate_Click()
If txtBonnr.Text <> vbNullString And txtBonnr.Text <> "" Then
MsgBox "Updaten"


openDB

Set RECSET = CreateObject("ADODB.Recordset")
RECSET.Open "UPDATE eetfestijn SET Subtotaal = '& txtAantal.Text &' WHERE Bonnr=" & CDbl(txtBonnr.Text), DBCON
DBCON.Close

End If

End Sub

If i execute the button i receive a runtime error 80040e07
microsoft odbc microsoft access driver
data type mismatch in criteria expression

[David.Poundall]

Try

RECSET.Open "UPDATE eetfestijn SET Subtotaal = '" & txtAantal.Text & "' WHERE Bonnr=" & CDbl(txtBonnr.Text), DBCON

[Melkske]

Hallo ,

It is not working ,but i have find another solution.

this works :

Call openDB
Dim UpdateTaskRecord As String
UpdateTaskRecord = "UPDATE eetfestijn SET Steak1='" & txtAantal & "' WHERE Bonnr='" & txtBonnr & "'"
DBCON.Execute UpdateTaskRecord
MsgBox "Eetfestijn updated"

Thanks a lot for replying me
Geert

[David.Poundall]

LOL - yes, I missed the parenthasis on the last bit. Glad its OK.