Fürs Archiv ein Beispiel für das Einlesen eines Select-Ergebisses mit DataAdapter in ein DataSet mit DataBind an ein Control:
Dim objDataSet As DataSet = New DataSet
Dim StrConnect, StrSelect As String
StrConnect = " ... "
Dim objConnection As OleDbConnection = New OleDbConnection
objConnection.ConnectionString = StrConnect
StrSelect = " ... "
Dim objCommand As OleDbCommand = objConnection.CreateCommand()
objCommand.CommandText = StrSelect
Dim objAdapter As OleDbDataAdapter = New OleDbDataAdapter
objAdapter.SelectCommand = New OleDbCommand(StrSelect, objConnection)
objAdapter.SelectCommand.Connection.Open()
objAdapter.Fill(objDataSet, " ... ")
DataList1.DataSource = objDataSet
Page.DataBind()