Visual Basic - Insertar datos campo datetime

Buenos dias necesito agregar algunos datos al campo datetime de una tabla que tengo en SQL server pero no he podido el codigo que falla a continuación:

Dim fecha As variant
fecha = Date + " " + Time
objetoRecordset.Open "insert into tabla(horainicial,otrocampo)values('" & fecha & "','" & otroobjeto & "')",conn

lo hago asi por q el formato de el tipo de datos es:
mm/dd/aaaa hh:mm:ss:
01/01/98 23:59:59.999

Gracias por la colabora.

Para mí que esto: fecha = Date + " " + Time te tiene que dar error de coincidencia de tipos (al menos en VB) ya que está haciendo una suma. En todo caso sería fecha = Date & " " & Time.

Pero eso es una chapuza, ya que VB tiene una función llamada Now que devuelve la fecha y hora actual.

Dim fecha As Date
fecha = Now

y para ejecutar la consulta, formateas la fecha

objetoRecordset.Open "insert into tabla(horainicial,otrocampo)values('" & Format(fecha, "mm/dd/yyyy hh:MM:ss") & "','" & otroobjeto & "')", conn

Tambien puedes hacer esto si lo estas pasando a SQL Server:

"INSERT INTO Tabla (Fecha) VALUES (CONVERT(DATETIME,'" & Format(DateServer, "YYYY-MM-DD hh:mm:ss") & "',102))

Buenos dias,
la solucion final para agregar datos a un campo datetime en SQL server 2000 desde un formulario en Visual basic 6.0 fue asi

dim fecha as date
fecha = now
objetoconnection.open "insert into tabla1(campodatetime,otrocampo)values(´'" & fecha & "','" & otroobjeto & "')",conn

Aunque en visual basic visualizo el valor correspondiente a la variable fecha que es :
16/12/2008 10:10:37
en sql server se registra en la tabla el valor:
2008-12-16 10:10:37

Muchas gracias por la colabora compañeros. :)