Filtrar fechas en Visual Basic

[patriciotandazo]

Alguien podría darme una mano.
Deseo filtrar unos registros de una base de datos access2000 en un control de visual basic. En un listbox.
Tengo mi configuracion regional establecida como dia/mes/año
Me sercioro de tener registros en la base de datos con las fechas de busqueda.

El codigo que tengo es el siguiente:

Dim fechainicio As Date
Dim fechafin As Date
Dim fechainicio1, fechafin1 As String

fechainicio = Format(Date, "dd/mm/yyyy")
'Disminuye 5 dias a la fecha actual
fechafin = Format(Date-5, "dd/mm/yyyy")

fechainicio1 = fechainicio
fechafin1 = fechafin

sql = "SELECT P.nombres,T.tipopedido FROM Pedidos as P, TiposVenta as T WHERE P.TIPO=T.IDTIPO AND P.estado=0 "

sql = sql & "and P.fecha between datevalue(#" & fechainicio1 & "#) and datevalue(#" & fechafin1 & "#)"

E intentado sin el Datevalue, tambien intento filtrando con las variables de tipo fecha dentro de la instrucción sql, pero no obtendo ningun resultado.

Gracias