ordem de serviço

OLÁ PESSOAL ESTOU TENTANDO MONTAR UMA ORDEM DE SERVIÇO, ESTA DANDO UNS ERRO, TENTEI MONTAR COM UMA TABELA COM CHAVE PRIMARIA MAIS NÃO ESTA DANDO CERTO, ALGUEM TEM UM EXEMPLO AI OU TOPICO QUE AJUDE A MONTAR

DESDE JÁ AGRADEÇO TODO VOCES.

OLÁ PESSOAL COMO FAÇO PARA SALVAR AS INFORMAÇOES DESTA FORMA NA TABELA , EU TENHO UM FORM COM

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Me.Validate()
Me.OSFBindingSource.EndEdit()

Try

Catch ex As DBConcurrencyException


Me.TableAdapterManager.UpdateAll(BibliotecaDataSet)


Dim customErrorMessage As String
customErrorMessage = "Concurrency violation" & vbCrLf
customErrorMessage += CType(ex.Row.Item(0), String)
MessageBox.Show(customErrorMessage)

' Add business logic code to resolve the concurrency violation...

End Try

Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Biblioteca.mdb;")
If con.State = ConnectionState.Closed Then con.Close()
con.Open()
sqlmaior = "Select Max(osn) From OSF"
Dim cmd As New OleDb.OleDbCommand(sqlmaior, con)

Dim maior As Integer
If IsDBNull(cmd.ExecuteScalar) Then
maior = 1
Else
maior = cmd.ExecuteScalar + 1
End If

cmd.ExecuteNonQuery()
ProximoCodigo = maior
OsnTextBox.Text = ProximoCodigo()
cmd.Dispose()
con.Close()

Me.OSFBindingSource.AddNew()
Me.Validate()
Me.OSFBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(BibliotecaDataSet)



End Sub

Pessoal devido não conseguir anexar uma imagem para voces verem eu postei no vbm
coloquei o link aki para voces poderem ver, pesso o apoio de voce.

DESDE JÁ AGRADEÇO VOCES
UM ABRAÇO.

http://www.vbmania.com.br/pages/index.phpvarModulo=Forum&varMethod=abrir&varID=403956&varPagina=1

Boa noite Lucas,

Não use letras maiuscula no forum, olhe as regras.

Segue um exemplo que talves possa ajudar: