que errores tiene esta consulta vb

[marie_mar]

Asumo que en la base de datos el campo es tipo Date, por tanto no puedes incluir los ' en la consulta, el error esta dado porque estás pasando el parámetro de fecha en una cadena tipo texto: (' " & Text1.Text & " ').
Yo te recomendaria que utilizaras en vez de campos texto algun control especifico de fecha, un datapicker o un control calendario de los estandares que vienen con el paquete de visual basic. Asi evitas errores en la fecha y en la consulta utiliza:

(Pedido.Fecha_pedido) Between #" & Format(Text1.Text, ''mm,dd,yy") & "# And #" & Format(Text2.Text, ''mm,dd,yy") & "#

Yo utilizo bastantes consultas de fechas en mis programas y esta forma siempre me ha funcionado.

Suerte!