With Tablename
.MoveLast
.Addnew
!UserName = Inputbox("Enter your name:","Input required")
strUserName = !UserName
If !UserName = "" then
Do something ....
End If
!Date = Inputbox("Enter Date:","Input required")
strDate = !Date
If !Date = "" then
Do something ....
End If
.Update
End With