Ayuda!! Access no ejecuta órdenes SQL

[AMTelemarket]

Gracias RootK!
Funcionó como un reloj :)

Por si a alguien más le puede ser útil, aquí va la función para pasar de fecha dd/mm/aaaa a aaaa/mm/dd


== La parte de la base de datos==================

Dim sFecha As String

Set adoQamDatosRS = New ADODB.Recordset
dFecha = txtFecha(0).Text
sFecha = ConvierteFecha(dFecha)

sSQL = "SELECT * FROM Tb1_Datos_QAM WHERE Fecha=#" & sFecha & "# ORDER BY Fecha, Hora_Local"
adoQamDatosRS.Open sSQL, db, adOpenStatic, adLockOptimistic

==La función================================

Private Function ConvierteFecha(dFecha As Date) As String

Dim sFecha As String
Dim sAnio As String
Dim sMes As String
Dim sDia As String
Dim inCounter As Integer
Dim inFoundPos As Integer
Dim x As Integer
Const PARSECHAR = "/"

sFecha = Str(dFecha)
If Len(sFecha) = 0 Then Exit Function

'Empezar en el último caracter
inCounter = Len(sFecha)
'Buscar una barra inclinada (/)
inFoundPos = InStrRev(sFecha, PARSECHAR, inCounter)
'Asignar la última parte de la cadena a sEstacion
sAnio = Mid(sFecha, inFoundPos + 1, (Len(sFecha) - inFoundPos + 1))
'La cadena de fecha pierde el año
sFecha = Left(sFecha, (Len(sFecha) - Len(sAnio) - 1))

'Empezar en el último caracter
inCounter = Len(sFecha)
'Buscar una barra inclinada (/)
inFoundPos = InStrRev(sFecha, PARSECHAR, inCounter)
'Asignar la última parte de la cadena a sEstacion
sMes = Mid(sFecha, inFoundPos + 1, (Len(sFecha) - inFoundPos + 1))
'La cadena de fecha pierde el mes
sFecha = Left(sFecha, (Len(sFecha) - Len(sMes) - 1))

'Empezar en el último caracter
inCounter = Len(sFecha)
'Buscar una barra inclinada (/)
inFoundPos = InStrRev(sFecha, PARSECHAR, inCounter)
'Asignar la última parte de la cadena a sEstacion
sDia = Mid(sFecha, inFoundPos + 1, (Len(sFecha) - inFoundPos + 1))

'La cadena de fecha pierde el año
sFecha = sAnio & "/" & sMes & "/" & sDia
ConvierteFecha = sFecha

End Function