Error de Búsqueda con SQL 2014 en Visual 6.0

Estimados estoy tratando de filtrar por un campo llamado "FechaRegistroCliente" y a ese campo quiero filtrar dependiendo desde una fecha de inicio
y una fecha final y el problema lo tengo al momento de ejecutar la consulta SQL me da Error (estoy utilizando Visual 6.0 Professional & SQL Server 2014

Dim NombreCampoCliente As String 'Va a tener el nombre del campo de mi tabla y sera el nombre del campo donde quiero filtrar
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 & "#"
.RecordSource = "SELECT * FROM TablaClientes where FechaRegistroCliente >= ' " & Fecha1 & " ' And FechaRegistroCliente <= ' " & Fecha2 & " ' "
' "SELECT * FROM paciente Where fecha Between DateValue('" & FechaInicio & "' ) And DateValue('" & FechaFinal & "')"
' he probado con los siguiente codigos
' .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