Public Function SelectSQL(ByVal SQL_Statement As String, _
                                Optional ByVal SP_Mode As Boolean = False, _
                                Optional ByVal StmParameterCollectionHashtable _
                                As Object = Nothing)
 
 
        Dim item As System.Collections.DictionaryEntry
 
        Dim SqlCom As New Odbc.OdbcCommand(SQL_Statement, _
          m_ClassDBConnect.OdbcConnection, m_OdbcTransaction)
 
        If m_ClassDBConnect.GetConnect.State <> ConnectionState.Open Then
            m_ClassDBConnect.GetConnect.Open()
        End If
 
        If m_ClassDBConnect.OdbcConnection.State = ConnectionState.Open Then
 
            If SP_Mode Then
                SqlCom.CommandType = CommandType.StoredProcedure
 
                If Not (StmParameterCollectionHashtable Is Nothing) Then
                    '***************   Define and fill DictionaryEntry object   
                    ' *********************************
                    Dim SP_Parameters(StmParameterCollectionHashtable.Count - _
                      1) As System.Collections.DictionaryEntry
 
                    StmParameterCollectionHashtable.CopyTo(SP_Parameters, 0)
 
 
                    '********************   Iterate dictionary   
                    ' *********************************
                    For Each item In SP_Parameters
                        SqlCom.Parameters.AddWithValue(CStr(item.Key), CStr( _
                          item.Value))
                    Next
                End If
            Else
                SqlCom.CommandType = CommandType.Text
            End If
 
            m_OdbcReader = SqlCom.ExecuteReader()
            SqlCom.Dispose()
 
        Else
 
            Throw New Exception("ODBC-Verbindungsfehler - Bitte versuchen Sie" & _
              "es später noch mal.")
 
        End If
    End Function