DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss"
Dim strDateTime As String
strDateTime = DateTime.DateParse(DateTime.Date(DateTime.Now))
Log(strDateTime)
datHubber.ExecNonQuery2("INSERT INTO MessageLog VALUES(?,?,?,?,?,?)" , Array As String (intMessageID, MobileNumber, strDateTime, Message, Direction, Status))