Dim VString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=Datenbank.mdb;"
Dim Verbindung As New OleDbVerbindungection(VString)
Dim SQLstatement As String = SYSTEM_SQL_Tabellen.MainForm.Test.Text
Dim cmd As New OleDbCommand(SQLstatement, Verbindung)
Dim Adapter As New OleDbDataAdapter(cmd)
Dim ds As New DataSet() 'Verbindung zur Datenbank öffnen
 
Verbindung.Open()
Adapter.Fill(ds, "Datensatz")
Verbindung.Close()
Dim dt As DataTable = ds.Tables.Item("Datensatz")
Dim custRow As DataRow
 
If dt.Rows.Count <= 0 Then
    MsgBox("In der Datenbank sind keine Tabellen vorhanden.")
Else
    For Each custRow In dt.Rows
        Tabellen.MainForm.LB_Tabellen.Items.Add(custRow.Item(0))
    Next
End If