Public Function Query(ByVal Sourcetext As String, ByVal TableName As String)
        ' Wenn noch keine Verbindung zur Datenbank besteht, muss diese 
        ' hergestellt werden.
        If IsInitialized = False Then
            InitialiseConnection()
        End If
 
        Dim oda As New OdbcDataAdapter(Sourcetext, conn)
        Dim ds As New DataSet()
        Dim TableRows As DataRowCollection
 
        oda.Fill(ds)
        TableRows = ds.Tables("t_kunde").Rows ' <--- Hier stürzt das Programm 
        ' immer ab!
 
        ' DataSet zurückgeben
        Query = TableRows
    End Function