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