Visual Basic - fecha de servidor BD

Hola a todos..

Tengo una aplicacion donde la base de datos esta compartida en un maquina que tiene windows 2000, y quiero saber como puedo hacerle para obtrener la fecha y hora, con VB, de donde esta la base de datos...

Muchas gracias por su ayuda.
Saludos.

Intentalo con este codigo.......

Dim rs_Prueba as ADODB.Recorset
Dim str_Consulta as string
Dim str_Fecha as String
Dim DBConexion as ADODB.Connection

'Debes abrir la conexion a la base de datos

str_Consulta = "Select GETDATE() as Fecha"
Set rs_Prueba = DBConexion.Execute(str_Consulta)
str_Fecha = Format(rs_Prueba!Fecha, "MM/DD/YYYY")
lcrs_Temp.Close
Set lcrs_Temp = Nothing