Visual Basic - problema con consulta tipo date

Private Sub Command7_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=dental")
txtsql = "select * from proveedor where fecha ='" & Text2.Text & "'"
Set rs = con.Execute(txtsql)
If Not rs.EOF Then
Adodc1.RecordSource = txtsql
Adodc1.Refresh
Text2.Text = ""
Text2.SetFocus
Text1 = rs!fecha
End If
End Sub
Quiero hacer una consulta por fecha pero no me la acepta, al hacerla como texto o como numero no tengo ningun problema, pero como date(fecha) me dice que no coinciden los tipos de datos con la expresión de criterios.

Que tipo de formato tiene el campo fecha???dependiendo el tipo de formato (en este caso es dd/mm/yyy) dale un format a la fecha, ejemplo
txtsql = "select * from proveedor where fecha ='" & Format(Text2.Text,"dd/mm/yyyy") & "'"
Espero y te sirva!!!

Debes hacerla Asi:
RSOrdenes.Open "Select * From FacturasENC WHERE FECHA Between # " & Format(PckDesde.Value, "yyyy/mm/dd") & "# And # " & Format(PckHasta.Value, "yyyy/mm/dd") & "# order By FECHA ", Coneccion, adOpenStatic, adLockReadOnly