Public Function MaxTime() As Date
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim fld As Field
   
   MaxTime = "00:00:00"
   
   Set cnn = CurrentProject.Connection
   rst.Open "tabl", cnn, adOpenKeyset, adLockPessimistic
   
   For Each fld In rst.Fields
      If fld.Type = adDate Then
         If fld > MaxTime Then MaxTime = fld
      End If
   Next
   
   MsgBox MaxTime
End Function

Public Function MaxTime(lngID as Long) As Date
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim fld As Field
   
   MaxTime = "00:00:00"
   
   Set cnn = CurrentProject.Connection
   rst.Open "Select * From tabl Where ID=" & lngID , cnn, adOpenKeyset, 
       adLockPessimistic
   
   For Each fld In rst.Fields
      If fld.Type = adDate Then
         If fld > MaxTime Then MaxTime = fld
      End If
   Next

End Function