funcion entre fechas y no funciona

[guillebomtrasmiti]

hola, tengo un procedimiento hecho en una parte del programa que funcioana a las mil maravillas pero al usarlo en otro formulario me da un error, alguíen sabe por que?¿?

Private Sub filtroproveedor()


Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

'Try
com.CommandType = CommandType.Text
com.CommandText = "SELECT NFacturaSRCabecera,CodProveedor,NombreProveedor,Fe chaPedido,TotalFactura,FechaVencimiento,FormaPago, OtroDto,OtroImpuesto,Id From LineasAlbaranesHCabecera Where NombreProveedor = ('" & UCProveedores.Text & "') AND FechaVencimiento @FI AND @FF ORDER BY Id"
com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapt.SelectCommand = com
adapt.Fill(setda, "LineasAlbaranesHCabecera")


'aquí cargo el datasource y el datamenber del datagrid
DgAlbaranes.DataSource = setda
DgAlbaranes.DataMember = "LineasAlbaranesHCabecera"
DgAlbaranes.Columns(0).HeaderText = "NºFactura"
DgAlbaranes.Columns(1).HeaderText = "Cod."
DgAlbaranes.Refresh()
'Catch
MessageBox.Show("Compruebe sus datos", "Aviso GesDreamtPos")
'End Try
End Sub

[guillebomtrasmiti]

arreglado, era fecha pedido y no vencimiento, perdón