Es decir quedaría así ?
Código PHP:
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Activate()
Label1.Caption = !ultimologin
End Sub
Private Sub Form_Load()
Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\ALComp.mdb"
End Sub
Private Sub Form_Unload()
acuerdat de la conexion a la database
rs.Open "Select * From Usuarios", Cn, 3, 3
!ultimologin = Date
End Sub