DTpicker, mysql y vb6 Obtener registros entre dos Fechas

[-rommel_]

Código vb:

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)
 
  strConsulta = "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 " & FechaInicial & " and " & FechaFinal
  
  ' Crea un textBox para que guardes la consulta y visualices si te muestra correctamente la   
  ' Consulta
  me.TextBox1.text = strConsulta
 
  Set rcdSet4 = New Recordset
  rcdSet4.Open strConsulta
    
  Set grdDataGrid4.DataSource = rcdSet4
  mbDataChanged = False
 

intenta esto