Hier eine kleine Funktion mit welcher man per DataReader Daten aus der Datanbenk auslesen kann:
Function GetDataReader(ByVal SQL_befehl) As IDataReader
Dim connection As New OleDbConnection(" ... ")
Dim command As New OleDbCommand(SQL_befehl, connection)
connection.Open()
Return command.ExecuteReader(CommandBehavior.CloseConnection)
End Function
Das Ergebnis kann anschliessend an ein Daten-Objekt gebunden werden:
Dim Daten As IDataReader = GetDataReader("select * from ... ")
objekt.DataSource = Daten
objekt.DataBind()