Private Sub SpeichernToolStripButton_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles SpeichernToolStripButton.Click
        Dim Cn As New ADODB.Connection
        With Cn
            ' Provider zuweisen
            .Provider = "SQLOLEDB.1"
            ' ConnectionString übergeben
            .ConnectionString = "Data" & _
              "Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Beatlesarc" & _
              "iv.mdf;Integrated Security=SSPI"
            ' Connection öffnen
            .Open()
            .BeginTrans()
            .Execute("INSERT INTO Personen (Anrede) VALUES (1)")
            .CommitTrans()
 
        End With
 
 
    End Sub