Try
            Dim cmd As OleDbCommand
            Dim da As OleDbDataAdapter
            Dim ds As DataSet
            Dim dt As DataTable
 
            cmd = New OleDbCommand("Select * From Tabelle", conn)
            da = New OleDbDataAdapter(cmd)
            ds = New DataSet()
            dt = New DataTable()
 
            da.Fill(ds, "Tabelle")
            dt = ds.Tables.Item("Tabelle")
 
            Dim InsStrBank As String = "Insert Into Tabelle(a,b,c,d,e) Values (" & _
              "@p1,@p2,@p3,@p4,@p5)"
            Dim cmd1 As OleDbCommand
 
            cmd1 = New OleDbCommand(InsStrBank, conn)
 
            cmd1.Parameters.Add("@p1", OleDbType.VarChar, 255, "a")
            cmd1.Parameters.Add("@p2", OleDbType.VarChar, 255, "b")
            cmd1.Parameters.Add("@p3", OleDbType.VarChar, 255, "c")
            cmd1.Parameters.Add("@p4", OleDbType.VarChar, 255, "d")
            cmd1.Parameters.Add("@p5", OleDbType.VarChar, 255, "e")
 
            da.InsertCommand = cmd1
 
 
            Dim rw As DataRow = dt.NewRow
 
 
            rw("a") = Kunde.a
            rw("b") = Kunde.b
            rw("c") = Kunde.c
            rw("d") = Kunde.d
            rw("e") = Kunde.e
 
            dt.Rows.Add(rw)
            da.Update(dt)
            conn.Close()
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "1")
        End Try
        Return False