'* Open a new connection
Set conn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset

conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\atm.mdb;" & _
"Persist Security Info=False"

'* update balance information for user
rs2.Open "UPDATE Users SET Balance = " & balanceleft & "WHERE userID = " & txtuserID.Text, _
conn2, adOpenForwardOnly, adLockReadOnly, adCmdText

rs2.Update

'* close rs connection
rs2.Close
Set rs2 = Nothing




I'm having problems getting the above code to update the database, any ideas? thanks