Code:
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\test.mdb"
Adodc1.RecordSource = "select * from usertable"
Adodc1.Refresh
Adodc1Execute "UPDATE Usertable SET Usertable.[Password] = 'abc2" & Now & "' WHERE UserName='user1'"
Function Adodc1Execute(Sql As String)
'On Error GoTo err
Adodc1.Recordset.ActiveConnection.Execute Sql
Adodc1.Recordset.ActiveConnection.Close
Adodc1.Refresh
' Adodc1.Refresh
' DataGrid1.Refresh
' Adodc1.Refresh
Exit Function
err:
MsgBox err.Description
End Function