Spalte aus DB lesen

''' <summary>
''' übergibt eine Key-Spalte
''' </summary>
''' <param name="table"></param>
''' <param name="keyName">Die zurückzuliefernde Schlüsselspalte (Default:ID)</param>
''' <param name="whereClause">Optionale WHERE-Klausel (mit WHERE !)</param>
''' <returns>List(Of String)</returns>
Public Function DBGetKeys(ByVal tablename As String, Optional ByVal keyName As String = "ID" _
, Optional ByVal whereClause As String = "") As List(Of String)
Dim sqlStatement As String
sqlStatement = "SELECT " & keyName &amp; " FROM [" & tableName & "] " & whereClause
Dim result As List(Of String)
result = doSql(sqlStatement, QueryReturns.Keys)
If result Is Nothing Then
MsgBox("Es konnten keine Keys aus Tabelle " & tableName & " gelesen werden.")
Return Nothing
End If
Return result
End Function