inserimento data in tabelle da visual basic

[Ivano Robasto]

salve ho creato scrip per gestione utenti che prende utenti da una tabella e se presente ti fa accedere ad altra tabella ora il mio problema e stampare la data di accesso e il nome utente su 2 tabelle del database tab1 e tab 2 chi mi puo aiutare di seguito mio codice

Private Sub Comando1_Click()
If IsNull(Me.txtloginid) Then
MsgBox "immetti logni", vbInformation, "login id inserire"
Me.txtloginid.SetFocus
ElseIf IsNull(Me.txtpassword) Then
MsgBox "immetti password", vbInformation, "password id inserire"
Me.txtpassword.SetFocus
Else
'process the job
If (IsNull(DLookup("userlogin", "tbuser", "userlogin='" & Me.txtloginid.Value & "'"))) Or _
(IsNull(DLookup("password", "tbuser", "password='" & Me.txtpassword.Value & "'"))) Then
MsgBox "errore id o passwrd"
Else
DoCmd.Close
'If userlevel = 1 Then

'MsgBox "logid e passwrd giusti"
DoCmd.OpenForm "magazzino"
DoCmd.PrintOutv 'da qui in poi dovrei mandare data di lato a nome utente nella tabella
'e poi inserire data e nome utente della tabella modificata



'Else
'DoCmd.openfrom "home"

End If

End If
End Sub