Visual Basic - cosulta a Bds

Hola..
El problema que tengo es el siguiente:
Hice un form el cual se encarga de hacer consultas a los registros de la Bds por fechas, ej: tengo 2 maskedbox en las cuales digito las fechas y le doy clic en un commandBoton y me debe desplegar los registros en un MsFlexGrid, la Bds tiene muchas tuplas o campos, pero yo solo estoy consultando algunas de ellas.
El código que estoy utilizando es el siguiente:
Private Sub cmdVisualizar_Click()
Dim rs As ADODB.Recordset
Dim sum As Integer
Set rs = New Recordset
Fec1 = Format(CDate(mkbFec1.Text), "dd/mm/yyyy")
Fec2 = Format(CDate(mkbFec2.Text), "dd/mm/yyyy")
rs.Open "SELECT Exp_Cliente, Nom_Cliente, Cod_Cliente, Pro_Cliente, Fecha_Cliente_ FROM cliente WHERE Fecha_Cliente between #" & Fec1 & "# AND #" & Fec2 & "# ORDER BY Fecha_Cliente", cn
txtReg.Text = rs1.RecordCount
El error que me da es el siguiente: error 3001 en tiempo de ejecución: argumentos incorrectos fuera del intervalo permitido o en conflicto con otros..
El error se señala en la fila rs.open “Select exp_cliente, nom_cliente……

Muchas Gracias…

Proba cambiando:

Fec1 = Format(CDate(mkbFec1.Text), "dd/mm/yyyy")
Fec2 = Format(CDate(mkbFec2.Text), "dd/mm/yyyy")

por:

Fec1 = Format(CDate(mkbFec1.Text), "mm/ddyyyy")
Fec2 = Format(CDate(mkbFec2.Text), "mm/dd/yyyy")

tenes que mandar como MM/DD/YYYY - MES DIA AÑO