Tabelle aus DB lesen

Public Function DBGetResultSet(ByVal sqlStatement As String) As SqlDataReader
Dim ResultSet As SqlDataReader 'DBColumn enthält die Werte einer Datenspalte
'Abruf der Daten
Try
ResultSet = doSql(sqlStatement, QueryReturns.Reader)
Catch ex As Exception
log.Fault("DBGetResultSet", "Datenbankzugriff fehlgeschlagen. SQL-Befehl: " & _
vbCrLf & sqlStatement & vbCrLf & ex.Message)
Return Nothing
End Try
'fertig
Return ResultSet
End Function