Me estoy iniciando en la programaci?n y tengo el siguiente problema:

Tengo 2 tablas en access,

Facturacion: IdFactura,Idproveedor,Numero, ...
Numeracion: IdFactura,Idproveedor,Numero

La aplicaci?n pretende gestionar la facturaci?n de varios proveedores y lo
que quiero es que a la hora de emitir las facturas de ellos, me d?
autom?ticamente el n?mero de factura que le corresponda, sin tener que
hacerlo manualmente.

Como soy bastante novato he probado s?lo con la tabla facturaci?n para dar
los n?mero consecutivos, pero lo que me hace es darle el mismo n?mero a todos
los registros, para ello tengo este c?digo, he probado de varias maneras y no
consigo hacer lo que quiero.

Alguien me puede guiar?


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim numerar As OleDbDataAdapter = New OleDbDataAdapter("SELECT
IDPROVEEDOR,IDFACTURA,NUMERO FROM FACTURACION ORDER BY IDPROVEEDOR", conexion)
Dim dsnumerar As DataSet = New DataSet
numerar.Fill(dsnumerar)
Dim number As Integer
Dim proveedor As Integer
Dim cuenta As Integer = 0
Dim sql As String
Dim sql1 As String

Dim dt As DataTable = dsnumerar.Tables(0)
For Each row As DataRow In dt.Rows
sql = "UPDATE FACTURACION SET NUMERO = " & number & " WHERE
IDPROVEEDOR = 41 "
Dim dataadapter As OleDbDataAdapter = New
OleDbDataAdapter("SELECT NUMERO FROM FACTURACION", conexion)
Dim dataset As New DataSet
dataadapter.Fill(dataset)

Dim CMD As New OleDbCommand(sql, conexion)
conexion.Open()?

CMD.ExecuteNonQuery?
MessageBox.Show("Number es: " & number)
number = number + 1
conexion.Close()

Next
End Sub?