Visual Basic.NET - Campo con codigo autonumerico

si tengo un formulario que inserta en la base de datos como puedo hacer para que cuando lo abra salga en el formulario un código numérico asignado automaticamente?'

gracias

Explicate mejor un codigo numerico de donde ? correlativo al ultimo dato de la tabla supongo?

Dim odataset As New DataSet
Dim ocommanda As New OleDb.OleDbCommand("Select ID From Suppliers", conexion)
Dim adaptador As New OleDb.OleDbDataAdapter

adaptador.SelectCommand = ocommanda
adaptador.Fill(odataset, "Suppliers")

Dim row As Long
Dim valor As String

row = odataset.Tables(0).Rows.Count
row = row - 1
valor = odataset.Tables(0).Rows(row)(0)
valor = valor + 1

este codigo te busca la ultima fila de la la columna 0 de la tabla 0 (indexado) y le resta uno para que no caiga en una fila vacia..y el valor capta el valor de la fila
y le suma uno