Preciso fazer um formulário que coloque a data e a hora de entrada automaticamente.
Sub Main
Dim oForm, oData, oEntrada, oSaida, oNome, oLotacao, oDocumento as Object
Set oForm=Forms("MainForm")
oData = Date
oEntrada = Time
datData.txt = oData
timEntrada.txt = oEntrada
End Sub