Private Sub cmdEnter_Click()
On Error GoTo Err_cmdEnter_Click
Dim rst As DAO.Recordset
Set rst = CurrentDb.TableDefs("historialacceso").OpenRecordset
rst.AddNew
rst!Username = Me.cmbLogin
rst!Fecha = Now()
rst!Hora = Now()
rst.Update
rst.Close
Set rst = Nothing
Exit_cmdEnter_Click:
Exit Sub
Err_cmdEnter_Click:
MsgBox Err.Description
Resume Exit_cmdEnter_Click
End Sub