Dim rs As DAO.Recordset, db As DAO.Database
Dim res As Boolean
Dim query As String
Dim temp
Set db = CurrentDb
query = " Update User set Last_Name=" & txtUserId & ",First_Name= " & txtFirstName& ",Email_Id= " & txtEmailId & "',User_Type= "cmbUserType & " from User where User_Id=" & txtUserId & ""
Debug.Print query
db.Execute query
''If txtUserId = "" Then
''MsgBox "Please select Record first"
'If Err.Number = 0 Then
'MsgBox "Record Updated successfully." & db.RecordsAffected
'Else
'MsgBox "Record not Updated The error is: " & Err.DESCRIPTION
'End If
End Sub