Una solución podría ser crear una consulta limitada al proveedor y ordenada por número de factura. Si la consulta arroja registros, le sumas una unidad al último registro y si no arroja ninguno, le pones 1.
Algo así:
SELECT NumeroFactura FROM LaTabla WHERE IdProveedor = " & VariableProveedor & " ORDER BY NumeroFactura" 