[Resolvido] Problema em instrução SQL - consulta

Olá a todos... sou novato em vb... estou tentando fazer uma consulta com intervalo de datas com o código abaixo (que não está completo ainda) e está dando um erro na linha em negrito. É o erro run timer erro '3001'.... Alguém poderia me ajudar por favor...?

data_ini = Format(CDate(txt_venc_inicial.Text), "DD/MM/YYYY")

data_fin = Format(CDate(txt_venc_final.Text), "DD/MM/YYYY")

conecta

sel = "Select * from despesas where vencimento>='" & data_ini & "' and vencimento<='" & data_fin & "'"

rs.Open sel, 3, 3

desconecta

Obrigado