Dim strCon As String = "Data" & _
  "Source=.\SQLEXPRESS;AttachDbFilename=|Datadirectory|\BPS-DTA.mdf;Integrated" & _
  "Security=True;User Instance=True"
    Dim conn As New Data.SqlClient.SqlConnection
    Dim SQL As String = "SELECT * FROM Lieferanten"
    Dim da As New SqlDataAdapter(sql, conn)
    Dim ds As New DataSet()
 
    '-------    Datensatz hinzufügen   -------
 
    Private Sub Datensatz_hinzufügen()
        Dim cmdB As SqlCommandBuilder = New SqlCommandBuilder(da)
 
        Try
            conn.ConnectionString = strCon
 
            ds.Clear()
            'Dataset mit der Tabelle Users füllen
            da.Fill(ds, "Lieferanten")
            'Im DataSet einen neuen Datensatz hinzufügen
            'Der Tabelle eine neue DataRow hinzufügen
            Dim row As DataRow = ds.Tables("Lieferanten").NewRow()
 
            'Werte übergeben
            row("Lieferantennummer") = Trim(txtAnlegen1.Text)
            row("Lieferantenname") = Trim(txtAnlegen2.Text)
            row("Telefon1") = Trim(txtAnlegen3.Text)
            row("Telefon2") = Trim(txtAnlegen4.Text)
            row("Fax") = Trim(txtAnlegen5.Text)
            row("Email") = Trim(txtAnlegen6.Text)
            row("Aufnahmedatum") = Trim(txtAnlegen7.Text)
 
            ds.Tables("Lieferanten").Rows.Add(row)
 
            'Datenbank(updaten)
            da.Update(ds, "Lieferanten")
 
        Catch ex As SqlException
            MessageBox.Show(ex.Message, "Fehler", _
              MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try
 
    End Sub