Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=mp3.mdb"
        Dim conn As New OleDbConnection(connectionString)
        Dim SQL As String = "SELECT * FROM TKatalog"
        Dim DS As DataSet = New DataSet
        Dim DA As OleDbDataAdapter = New OleDbDataAdapter(SQL, conn)
        Dim DT As DataTable = New DataTable
        Dim DR As DataRow
        Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(DA)
 
        Try
            conn.Open()
            DA.Fill(DS, "TKatalog")
            DT = DS.Tables("TKatalog")
            DR = DT.NewRow
            DR("KatID") = 0
            DR("KatName") = KatName
            DR("KatQuelle") = txtQuelle.Text
            DT.Rows.Add(DR)
            DA.Update(DS, "TKatalog")
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try

~ no brain, no headache ~