Hola:
Yo no estoy puesto en Bases de Datos, pero he encontrado este mensaje en Google que quizás pueda ayudarte.
Cita: Otra opción es usar «DATEPART» en la parte del servidor para descomponer la fecha y «TimeSerial» en la parte del cliente para volver a reconstruirla en una variable «Date»; por ejemplo:
Dim Cn As ADODB.Connection, Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=SQLOLEDB.1;bla,bla,bla..."
Rs.Open "DECLARE ***f datetime" & vbCr & _
"SET ***f = GetDate()" & vbCr & _
"SELECT DatePart(hh, ***f) h, DatePart(n, ***f) m, DatePart(s, ***f) s", Cn
Debug.Print TimeSerial(Rs.Collect("h"), Rs.Collect("m"), Rs.Collect("s"))
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
~~~~~~~~~~~~Inmediato~~~~~~~~~~~~~~~~~
15:47:22
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Un saludo!
Rubén Vigón
Microsoft MVP Visual Basic
Por si te sirve de ayuda, aquí te lo dejo así como el
enlace a la discusión de este asunto, aunque es del año 2007.
Saludos