Para Access use isto:

 

Inicio = Format(CDate(Txt_Inicio.Text), "mm/dd/yy")
Fim = Format(CDate(Txt_Fim.Text), "mm/dd/yy")
Sql = ""
Sql = "SELECT * FROM TABELA"
Sql = Sql & " WHERE"
Sql = Sql & " Emissao >= #" & Inicio & "#"
Sql = Sql & " AND"
Sql = Sql & " Emissao <= #" & Fim & "#"

Jayme