Writing files from event viewer to SQL

[mrnez]

I have the following code which I am using it is a some standard code from Microsoft, However I want to write the date into the database in standard date format, any ideas ??

Thanks in advance

Rich

Set objConn = CreateObject("ADODB.Connection&quot
Set objRS = CreateObject("ADODB.Recordset&quot
objConn.Open "DSN=EventLogs;"
objRS.CursorLocation = 3
objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3
strComputer = "UNIBDC"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colRetrievedEvents = objWMIService.ExecQuery ("SELECT * FROM Win32_NTLogEvent WHERE logfile = 'system'&quot
For Each objEvent in colRetrievedEvents
objRS.AddNew
objRS("Category&quot = objEvent.Category
objRS("ComputerName&quot = objEvent.ComputerName
objRS("EventCode&quot = objEvent.EventCode
objRS("Message&quot = objEvent.Message
objRS("RecordNumber&quot = objEvent.RecordNumber
objRS("SourceName&quot = objEvent.SourceName
objRS("TimeWritten&quot = objEvent.TimeWritten
objRS("Type&quot = objEvent.Type
objRS("User&quot = objEvent.User
objRS.Update
Next
objRS.Close
objConn.Close