s consultas sin resolver

[pabje]

Hola a Todos

Tengo 2 consultas sin resolver:

1_Conocer los medicamentos (sto_tip=1) que ingresaron en una determinada fecha . El problema que no arroja los los medicamentos que ingresaron en esa fecha:
La consulta es:

Private Sub Aceptar_Click()
adostock.RecordSource = "select * from stock where sto_tip=1 and sto_fin= " & maskfecha.Text
adostock.Refresh
If adostock.Recordset.EOF = True Then
MsgBox "No Encontro los medicamentos con esa fecha", vbInformation, "Mensaje del Sistema"
Else: MsgBox "Encontro los medicamentos con esa fecha", vbAbortRetryIgnore, "Mensaje del sistema"
End If
End Sub

2 La consulta es encontrar los medicamentos pero en un intervalo de fechas. Lo mismo que el 1 no encuentra los medicamentos.
La consulta es:

Private Sub Aceptar_Click()
adostock.RecordSource = "select * from stock where sto_tip = 1 " & " and sto_fin >= " & maskfechai.Text & " And sto_fin <= " & Maskfechaf.Text
adostock.Refresh
If adostock.Recordset.EOF = True Then
MsgBox "No encontro las fechas", vbInformation, "Mensaje del Sistema"
Else
MsgBox "Encontro las fechas", vbInformation, "Mensaje del Sistema"
End If
End Sub

Gracia por Todo.