Visual Basic - error en filtrar fechas al consultar por sql server 2014

Dim NombreCampoFecha As String 'Va a tener el nombre del campo de mi tabla y sera el nombre de la fecha donde quiero filtrar

Private Sub CmdBuscaPasajero_Click()

BuscaFecha

End Sub

Private Sub BuscaFecha()

  If RsTablaClientes.RecordCount = 0 Then

        Exit Sub

    Else

     'Obtener el Codigo del fecha chekin del pasajero

    VcodigoFecha = GrillaListadoPasajeros.Columns(1).Text

    'Llamar al Formulario de Editar Usuario

'    FrmEditarPasajero.Show vbModal

  '   EstiloGrillaCliente

     FiltrarFecha

    End If

End Sub

 'Generremos el Sub para Filtrar

Sub FiltrarFecha()

' Obtener el nombre del campo por donde vamos a filttrar

 If DTPDesdeFiltrarFechaPasajero.Value Then NombreCampoFecha = "FechaRegistroCliente"

 If DTPHastaFiltrarFechaPasajero.Value Then NombreCampoFecha = "FechaRegistroCliente"

' Programar el Filtrito

With AdoFiltrarPasajeros

     .CursorLocation = adUseClient

' va la coneccion a la BD

    .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=VBHOTELSQL;Data Source=MAQUI-PC\MSSQLSERVER14"

    ' Aqui va la consulta con SQL RECORDSOURCE

  Fecha1 = UCase(FormatDateTime(DTPDesdeFiltrarFechaPasajero.Value)) ' & "%"

  Fecha2 = UCase(FormatDateTime(DTPHastaFiltrarFechaPasajero.Value)) '& "%"

.RecordSource = "SELECT * FROM TablaClientes where FechaRegistroCliente >= ' " & Fecha1 & " ' And FechaRegistroCliente <= ' " & Fecha2 & " ' "

' he probado con los siguiente códigos

' .RecordSource = "SELECT * FROM TablaClientes Where FechaRegistroCliente Between ('" & Fecha1 & "' ) And ('" & Fecha2 & "')"

'  NombreCampoFecha = "[FechaRegistroCliente] BETWEEN #" & Format(DTPDesdeFiltrarFechaPasajero.Value, #1/1/1900#) & "YYYY/MM/DD" & "hh:mm:ss[.nnn] " & _

'  "# AND #" & Format(DTPHastaFiltrarFechaPasajero.Value, #12/31/9999#) & "YYYY/MM/DD" & "hh:mm:ss[.nnn]  "

Set GrillaListadoPasajeros.DataSource = RsTablaClientes

.Refresh

End With

'EstiloGrillaCliente

VcodigoFecha = 0

End Sub

.RecordSource = "SELECT * FROM TablaClientes where FechaRegistroCliente >= ' " & Fecha1 & " ' And FechaRegistroCliente <= ' " & Fecha2 & " ' "

.RecordSource = "set dateformat dmy SELECT * FROM TablaClientes where FechaRegistroCliente >= ' " & Fecha1 & " ' And FechaRegistroCliente <= ' " & Fecha2 & " ' "