Private Sub cmdDBTest_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdDBTest.Click
        Dim ds As DataSet = Nothing
        Dim da As SqlDataAdapter = Nothing
        Dim conn As SqlConnection
 
        'Connection-String erstellen
        Dim conStr As String = "Data" & _
          "Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\test.mdf;Integ" & _
          "ated Security=True;User Instance=True"
 
        'Connection-Objekt erzeugen
        conn = New SqlConnection(conStr)
 
        'Ein leeres DataSet-Objekt erzeugen
        ds = New DataSet()
 
        'SQL-Abfrage definieren
        Dim selStr As String = "SELECT * FROM Customers WHERE City = 'London'"
 
        'DataAdapter-Objekt erzeugen
        da = New SqlDataAdapter(selStr, conn)
 
        'Verbindung öffnen
        conn.Open()
        da.Fill(ds, "LondonerKunden")
 
        'vorhandene Tabellen anzeigen
        ListBox1.Items.Clear()
        For Each dt As DataTable In ds.Tables
            ListBox1.Items.Add(dt.TableName)
        Next
 
        'Neue Tabelle erzeugen
        Dim table As DataTable = New DataTable("TestTable")
 
        'Tabelle hinzufügen
        ds.Tables.Add(table)
 
        ' Aenderungen in die DB Speichern
        ds.AcceptChanges()
 
        da.FillSchema(ds, SchemaType.Source)
        da.Update(ds)
 
        'Verbindung schließen
        conn.Close()
    End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)