Ayuda con visual basic

[sebaghost]

hola amigos tengo un problema para almecenar una fecha en visula basic script tengo k hacer un insert a una tabla de una base de datos sql 2000 este es le codigo bueno lo que me pasa es que no puedo almacenar el valor de la fecha de formato 12-12-2007 12:22:00 no me deja no se por que no me escribe en la base probe el codigo con otro valor y si lo hace en un campo numerico o varchar cuando trate de guardar la fecha intente con tipo de dato datetime timestamps y el smalldatestamps bueno aun asi con coformato text no me deja y si lo hace se resta entre si no se que pasa y cuando guardo la fecha con formatyo 12-12-2007 me guarda con valor 22-07-1894 porfa necesito ayuda desde ya gracias hay esta el codigo


Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

strConnectionString = "Provider=MSDASQL;DSN=Kdm_biogas;UID=;PWD=;"

lngValue =Date

strSQL = "INSERT ReporteBiogas (Fecha) VALUES (" & lngValue & ");"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

With objCommand

.ActiveConnection = objConnection

.CommandText = strSQL

End With

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing