Try
                    If myDataSet.HasChanges = True Then
                        Dim k As Integer
                        Dim i As Integer
                        k = myDataSet.Tables(strTabelle).Columns.Count
                        Dim myStr(k) As String
                        For i = 0 To k - 1
                            myStr(i) = myDataSet.Tables(strTabelle).Columns( _
                              i).ToString
                            i += 1
                        Next i
                        Dim myCB As New OleDb.OleDbCommandBuilder(myAdapter)
                        myAdapter.InsertCommand = myCB.GetInsertCommand
                        myAdapter.DeleteCommand = myCB.GetDeleteCommand
                        myAdapter.UpdateCommand = myCB.GetUpdateCommand
                        myAdapter.Update(myDataSet, strTabelle)
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Writer")
                End Try