Visual Basic - Consulta con ADO

Necesito saber como hago una consulta entre fechas con ADO, pero con código, sin usar el control ADODC. Gracias

dim cn as adodb.conection
dim mistr as string
Dim mirs as adodb.recordset

'Creas y abres la conexion adecuada
set cn = new adodb.conection
cn.conectionstring = "...Lo que sea.."
cn.open
set mirs = new adodb.recordset
mistr = "select * from tabla where fecha1 >= #" & fecha1 & "# " & _
" and fecha1 <=#" & fecha2 & "#"
set mirs = cn.execute (mistr)
....

mirs.close
cn.close
set mirs = nothing
set cn= nothing