Sub CreateDataTable(ByVal SQL_Text As String)
        Dim DatenbankName As String
        DatenbankName = Pfad$ + Datei$ + ".MDB"
        Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" _
          + DatenbankName
        Dim sqlStr As String = SQL_Text
        ' Create connection object
        Dim conn As OleDbConnection = New OleDbConnection(conStr)
        ' Create data adapter object
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
        ' Create a dataset object and fill with data using data adapter's Fill _
          method
        Dim ds As DataSet = New DataSet()
        da.Fill(ds, "ADREVA")
        ' Attach dataset's DefaultView to the datagrid control
        Dim dv As DataView = ds.Tables("ADREVA").DefaultView
        List1.DataSource = dv
        List1.DisplayMember = "schluessel"
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de