'Abfrage generieren
        Dim oCmd As OleDb.OleDbCommand = oDB.CreateCommand()
 
        strSQLAbfrage = "SELECT * FROM Preise" 'Beispielabfrage
 
        oCmd.CommandText = strSQLAbfrage
 
        'Alle entsprechenden Datensätze aus der DB lesen
        Dim oReader As OleDb.OleDbDataReader = oCmd.ExecuteReader()