'Verbindung mit der Datenbank herstellen und sqladapter und Datasets 
        ' deklarieren
        Dim strCon As String = "Data" & _
          "Source=.\SQLEXPRESS;AttachDbFilename=|Datadirectory|\Database.mdf;I" & _
          "tegrated Security=True;User Instance=True"
        Dim con As New Data.SqlClient.SqlConnection
        Dim DS As New Data.DataSet
        con.ConnectionString = strCon
        Dim sqladapter As Data.SqlClient.SqlDataAdapter
 
        'Erstes Dataset wird gefüllt mit Daten aus der Tabelle Testtabelle
        sqladapter = New Data.SqlClient.SqlDataAdapter("Select * from" & _
          "Testtabelle", con)
        con.Open()
        DS.Tables.Add("Testtabelle")
        sqladapter.Fill(DS, "Testtabelle")
 
        'Dieses hier ist vermutlich nun der Punkt an dem du steckenbleibst:
        'Der sqladapter selbst weiß nämlich erstmal nicht wie er ein Update, 
        ' Insert oder Delete macht.
        'Was der sqladapter dazu machen muss besorgt der CommandBuilder
        Dim objCommandBuilder As New Data.SqlClient.SqlCommandBuilder( _
          sqladapter)
 
        sqladapter.DeleteCommand = objCommandBuilder.GetDeleteCommand()
        sqladapter.InsertCommand = objCommandBuilder.GetInsertCommand()
        sqladapter.UpdateCommand = objCommandBuilder.GetUpdateCommand()
 
        'Hier wird eine neue Zeile eingefügt.
 
        Dim Datarow As Data.DataRow
        Datarow = DS.Tables("Testtabelle").NewRow()
 
        Datarow("Anrede") = Anrede.Text
        Datarow("Vorname") = Vorname.Text
        Datarow("Nachname") = Nachname.Text
 
        DS.Tables("Testtabelle").Rows.Add(Datarow)
 
        sqladapter.Update(DS, "Testtabelle")
        con.Close()

sqladapter.Update(DS, "Testtabelle")