Consulta de fechas por rango en la misma columna access
Estoy creando una consulta en la que necesito que el txtfecha_i tenga el primer valor del rango y el txtfecha_f tenga el valor final del rango, esto se debe consultar sobre la misma columna denominada fecha_ultima_validacion. La cuestión es que me manda errores al momento de ejecutar con este código:
Private Sub Comando6_Click()
Dim sql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
sql = "Select A.fecha_ultima_validacion, A.nombre_1, A.apellido_paterno, A.apellido_materno, T.calle FROM" & _
" public_medicos A, public_domicilios T WHERE (A.fecha_ultima_validacion Between fecha_i='$fecha_i' " & _
"And fecha_f = '$fecha_f') AND (A.id = T.medico_id);"
Set dbs = CurrentDb
'On Error GoTo Err_SinData
Set rst = dbs.OpenRecordset(sql, dbOpenSnapshot)
'Asignamos el valor al TextBox
Me.lst_resultado.RowSource = sql
Me.lst_resultado.Requery
'Cerramos el recordset y liberamos memoria
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
'Exit_SinData:
'Exit Sub
'Err_SinData:
'MsgBox "System Failure, try once again and GOOD LUCK. If the system still down, pray for a miracle"
'Resume Exit_SinData
End Sub
La consulta funciona bien cuando pongo las fechas directamente como rango, es decir; Format(#01-05-2017#, 'dd/mm/yyyy') And Format(#07-05-2017#, 'dd/mm/yyyy') pero al tratar de hacerlo con la cosulta del código que menciono, no pasa nada o más bien me manda al depurador y me dice que se esperaban dos objetos. ¿Me pueden ayudar