Cita:
Iniciado por jaf16 
Está en la misma tabla de Facturacion,
Bueno, como tampoco das demasiada información, vamos a suponer que el campo que indica al proveedor se llama idProveedor. En tal caso podrías usar una función que devuelva el último número de factura incrementado en una unidad, algo así:
Código:
Public Function BuscarFactura(ByVal Prov As Long) As Long
Using oCn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\FATURACION\FACTURACION.MDB")
Dim sql As String = "SELECT MAX(Numero) As ultimo FROM Facturacion WHERE idProveedor = " & Prov
Try
Dim oDa As OleDbDataAdapter = New OleDbDataAdapter(sql, oCn)
Dim oDs As New DataSet
oDa.Fill(oDs, "Tabla")
Dim oDt As New DataTable
oDt = oDs.Tables("Tabla")
Return oDt.Rows(0).Item(0) + 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
End Function
Para llamarla sólo le tienes que pasar como parámetro el id del proveedor (en este caso estamos suponiendo que el campo idProveedor es de tipo Long, si no es así modifica el parámetro de antrada a la función y la consulta).
