Yo lo haría así con un ODBC
Dim WithEvents Tabla As Recordset
Private Sub Form_Activate()
Set db = New Connection
db.Open "DSN=datos"
Set Tabla = New Recordset
Tabla.Open "Tabla", db, adOpenStatic, adLockOptimistic
On Error Resume Next
'Por si te da error la primera vez por no tener datos
With Tabla
Label1.Caption= !ultimologin
End With
End Sub
Private Sub Form_Unload()
With Tabla
.AddNew
!ultimologin = Date
End With
Tabla.Update
End Sub
Así lo hago y me sirve... Si no te sirve me avisas