Visual Basic.NET - problema al agregar autonúmerico en el evento Load

Yo vengo de visual 6, y estoy empezando con .net, pero no comprendo pq en el evento de load no me rellena en una caja de texto un autonúmerico.

este es el código

Private Sub RegistroForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ClientesBindingSource.AddNew()
Me.CodClienteTextBox.Text = New Cliente().siguiente().ToString 'recupero el autonumérico

End Sub

'Espero te ayude en algo

imports system.data.sqlclient

Dim adapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select idPedido from Pedidos", Con)
Dim idPedid As Integer

'Load
Call IdPedido()
''''''''''''''''''''''''

Sub IdPedido()
Con.Open()
adapter.InsertCommand = New SqlClient.SqlCommand("GetOrderId", Con)
adapter.InsertCommand.CommandType = CommandType.StoredProcedure
Dim parameter As SqlParameter = adapter.InsertCommand.Parameters.Add("@Identity", SqlDbType.Int, 0, "IdPedido")
parameter.Direction = ParameterDirection.Output

Dim Pedi As DataSet = New DataSet
adapter.Fill(Pedi, "Pedidos")
Dim newRow As DataRow = Pedi.Tables("Pedidos").NewRow()
adapter.Update(Pedi, "Pedidos")
Con.Close()
If (Pedi.Tables(0).Rows.Count) = 0 Then
txtIdPedido.Text = 1
Else
idPedid = (Pedi.Tables(0).Rows(Pedi.Tables(0).Rows.Count - 1).Item("IdPedido")) + 1
txtIdPedido.Text = idPedid
End If
Pedi.Dispose()
End Sub