Visual Basic - Busqueda con parametros

Tengo el siguiente codigo en donde realizo una búsqueda de paciente de acuerdo a la fecha, para ello utilizo dos cuadros de texto (desde.text) y (hasta.text), quiero saber cual es el problema en la siguiente consulta, ya que no me toma lo que esta despues del Between.

comando.CommandText = "SELECT Data1.P_NRO, Data1.P_NOM, Medicos.M_NOM, Obras_sociales.OS_NOM, Orden_consulta.OC_Nro, Orden_consulta.OC_FECHA FROM Obras_sociales INNER JOIN (Medicos INNER JOIN (Data1 INNER JOIN Orden_consulta ON Data1.P_NRO = Orden_consulta.OC_PNRO) ON Medicos.M_MAT = Orden_consulta.OC_MAT) ON (Obras_sociales.OS_ID = Orden_consulta.OC_osnro) AND (Obras_sociales.OS_ID = Data1.P_OID)WHERE (((Orden_consulta.OC_FECHA) Between desde And hasta));"
Set comando.ActiveConnection = ConexionBase.Connection1
Set parametro = comando.CreateParameter("0", adDate, adParamInput, 15)
comando.Parameters.Append parametro
comando.Parameters(0).Value = desde

Set parametro = comando.CreateParameter("1", adDate, adParamInput, 15)
comando.Parameters.Append parametro
comando.Parameters(1).Value = Hasta


Set registro = comando.Execute

Set DataGrid1.DataSource = registro

Gracias , por ayudarme Valeria

Segun lo que pude observar son las comillas, con los textbox que contienen tus parametros, al WHERE no le dejaste espacio

comando.CommandText = "SELECT Data1.P_NRO, Data1.P_NOM, Medicos.M_NOM, Obras_sociales.OS_NOM,
Orden_consulta.OC_Nro, Orden_consulta.OC_FECHA FROM Obras_sociales INNER JOIN (Medicos INNER JOIN
(Data1 INNER JOIN Orden_consulta ON Data1.P_NRO = Orden_consulta.OC_PNRO) ON Medicos.M_MAT =
Orden_consulta.OC_MAT) ON (Obras_sociales.OS_ID = Orden_consulta.OC_osnro) AND (Obras_sociales.OS_ID =
Data1.P_OID) WHERE (((Orden_consulta.OC_FECHA) Between '" & desde & "' And '" & hasta & "'));"