vb 6.0 y sql server

[Edgar_Amarillas]

Hola, por si acaso no has resuelto el problema con las fechas te paso el código de una función.

De preferencia agrega todo este código dentro de un módulo.

option Explicit

' Valores válidos para guardar fechas
Public Enum eFormatoGuardarFecha
eFormatoSQL = 1
eFormatoACCESS = 2
End Enum

Public Function SQLFecha(ByVal Fecha As Variant, Optional Formato As eFormatoGuardarFecha) As String
Dim Hora As String

Hora = Format(Fecha, "hh:mm")

If Formato = eFormatoACCESS Then
SQLFecha = "#" & Format(Fecha, "mm/dd/yyyy") & " " & Hora & "#"
Else
SQLFecha = "'" & Format(Fecha, "dd/mmm/yyyy") & " " & Hora & "'"
End If
End Function