Ein expliziter Wert muss für die Identitätsspalte in der Company-Tabelle _
  angegeben werden, wenn IDENTITY_INSERT auf ON festgelegt ist oder wenn ein _
  Replikationsbenutzer in eine NOT FOR REPLICATION-Identitätsspalte einfügt.

            Using adapter As New SqlClient.SqlDataAdapter()
                adapter.SelectCommand = New SqlClient.SqlCommand("select * from" & _
                  "" & TableName, _cnn)
                Dim builder As SqlClient.SqlCommandBuilder = New _
                SqlClient.SqlCommandBuilder(adapter)
                builder.GetInsertCommand()
                'builder.GetUpdateCommand()
                insertedRows = adapter.Update(_dt)
            End Using