Dim formatBackup As String = DateTime.DateFormat
DateTime.DateFormat = "#MM/dd/yyyy hh:mm:ss a#"
'If the above is the wrong format (the insert bombs out), could also try
'DateTime.DateFormat = "MM/dd/yyyy hh:mm:ss a"
'or
'DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
Dim theTimeInTicks As Long = DateTime.Now
Dim timeStringForAccess As String = DateTime.Date(theTimeInTicks)
Log(timeStringForAccess) ' use timeStringForAccess as the datetime parameter for your query
DateTime.DateFormat = formatBackup