Dim row As DataRow = ds.Tables("Kunden").NewRow

Public Sub insertDS(ByVal sName As String, ByVal sVorname As String, ByVal _
  sFirma As String, _
                         ByVal sStrasse As String, ByVal sOrt As String, ByVal _
                         sPLZ As String, _
                         ByVal sZusatz As String, ByVal sTelefon1 As String, _
                         ByVal sTelefon2 As String, _
                         ByVal sMobil As String, ByVal sFax As String, ByVal _
                         sEmail As String, _
                         ByVal sAnsprechpartner As String, ByVal sSteuernummer _
                         As String, ByVal sBemerkung As String, _
                         ByVal sAnrede As String)
 
        'Daten in DB schreiben
 
        cDBConnect.connectDB()
 
        Dim ds As DataSet
        Dim cmd As New OleDb.OleDbCommand(("SELECT * FROM Kunden"), _
          cDBConnect.connectionDB)
        Dim da As New OleDb.OleDbDataAdapter(cmd)
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
 
        'Im DataSet einen neuen Datensatz hinzufügen
        'Der Tabelle eine neue DataRow hinzufügen
        ds = New DataSet()
        Dim row As DataRow = ds.Tables("Kunden").NewRow
 
        'Kundennummer ermitteln
        cNummernkreise.selectWhere(" where Nummernkreis = 'KdNr'")
 
        'Werte übergeben
        row("Kundennummer") = cNummernkreise.GetNummer()
        row("Anrede") = sAnrede
        row("Name") = sName
        row("Vornameame") = sVorname
        row("Strasse") = sStrasse
        row("Ort") = sOrt
        row("PLZ") = sPLZ
        row("Firma") = sFirma
        row("Zusatz") = sZusatz
        row("Ansprechpartner") = sAnsprechpartner
        row("Telefon1") = sTelefon1
        row("Telefon2") = sTelefon2
        row("Fax") = sFax
        row("Mobil") = sMobil
        row("Email") = sEmail
        row("Bemerkung") = sBemerkung
        row("Steuernummer") = sSteuernummer
        row("Status") = 0
        row("Benutzer") = s_Benutzer
        'row("Datum") = Date
        row("Zeit") = TimeOfDay
 
        ds.Tables("Kunden").Rows.Add(row)
 
        'Datenbank updaten
        da.Update(ds, "Kunden")
 
 
    End Sub