Dim objconnection As OleDb.OleDbConnection = _
    New OleDb.OleDbConnection _
    ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
    "Data Source=C:\KUNDEN.MDB")
    Dim objdataadapter As OleDb.OleDbDataAdapter
    Dim objdataset As DataSet
    Dim objdataview As DataView
    Dim OledBCommand As OledBCommand

  objdataview = Nothing
        objdataset = New DataSet
        objconnection.Open()
 
        objdataadapter = New OleDb.OleDbDataAdapter _
        ("SELECT * FROM KUNDEN", objconnection)
 
        objdataadapter.Fill(objdataset, "t_Kunden")
        objdataview = _
   New DataView(objdataset.Tables("t_Kunden"))

        OledBCommand = New OleDb.OleDbCommand _
        ("INSERT INTO [KUNDEN] ([NUMMER], [NAME], [VORNAME], [STRASSE], [ORT])" & _
        "VALUES " _
        & "('" & txtnummer.Text & "'" _
        & ",'" & txtname.Text & "'" _
        & ",'" & txtvorname.Text & "'" _
        & ",'" & txtstrasse.Text & "'" _
        & ",'" & txtort.Text & "')" _
, objconnection)
 
        OledBCommand.ExecuteNonQuery()

        OledBCommand = New OleDb.OleDbCommand _
       ("DELETE FROM [KUNDEN] WHERE [NUMMER] = '" & txtnummer.Text & "'" _
      , objconnection)
 
        OledBCommand.ExecuteNonQuery()