DTpicker, mysql y vb6 Obtener registros entre dos Fechas

[incubusxp]

Saludos Amigos,

Me dirijo a ustedes con la siguiente consulta:

Tengo un formulario con 2 (dos) DTpicker, 1 Datagrid y 1 botón

Lo que quiero hacer es una consulta que me muestre los registros en el Datagrid que estén entre las fechas de los DTpicker.

Los DTpicker se llaman: DTFechaInicial y DTFechaFinal
Tengo una base de datos mysql.

Éste es el código que tengo en el botón:

Código:

Dim qwerty As Connection
  Set qwerty = New Connection
  qwerty.CursorLocation = adUseClient
  qwerty.Open "PROVIDER=MSDASQL;dsn=biblioteca;uid=root;pwd=admin;database=biblioteca;"
  
  FechaInicial = convFecha(DTFechaInicial.Value)
  FechaFinal = convFecha(DTFechaFinal.Value)
  
  Set rcdSet4 = New Recordset
  rcdSet4.Open "select libro.titulo as 'Titulo de Libro', prestamo.fecha_prestamo as 'Fecha' from libro,prestamo where prestamo.id_libro=libro.id_libro AND prestamo.fecha_prestamo between  "
 
   
  Set grdDataGrid4.DataSource = rcdSet4
  mbDataChanged = False

Pero no me funciona, no sé donde está el error.

Agradezco Mucho su Ayuda

[franko1809]

Te falta completar la consulta
AND prestamo.fecha_prestamo BETWEEN '" & Format(FechaInicial, "mm/dd/yyyy") & "' AND '" & Format(FechaFinal, "mm/dd/yyyy") & "'