a i am using below code but its not working,,,
Code:
Private Sub cmdUpdate_Click()
Dim conn As ADODB.Connection
Dim myRecordset As ADODB.Recordset
Dim strConn As String
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Data2.mdb"
Set myRecordset = New ADODB.Recordset
With myRecordset
.Open "Select * from Table1 Where Name = TextBox0.Value "
strConn , adOpenKeyset, adLockOptimistic
.Fields("username").Value = "TextBox1.Value"
.Update
.Close
End With
Set myRecordset = Nothing
Set conn = Nothing
End Sub