t.DataSource = gDataCollection.ItemTable(SQLs)
    r.DataSource = gDataCollection.ItemTable(SQLs)
 
    Public ReadOnly Property ItemTable(ByVal SQLString As String)
        Get
            ItemTable = cTables(SQLString.ToLower)
        End Get
    End Property

 
        Try
            tmpAdapter = cAdapters(SQLString.ToLower)
            tmpCommand = tmpAdapter.SelectCommand
            tmpTable = cTables(SQLString.ToLower)
            tmpTableName = tmpTable.TableName
        Catch ex As Exception
            RaiseEvent Err(ex)
        End Try
 
        If tmpCommand Is Nothing Then Return
 
        Try
            cAdapters(SQLString.ToLower) = Nothing
            cAdapters(SQLString.ToLower) = New OleDbDataAdapter(tmpCommand)
            cTables(SQLString.ToLower) = Nothing
            cTables(SQLString.ToLower) = New DataTable(tmpTableName)
            tmpAdapter.Fill(cTables(SQLString.ToLower))
            tmpAdapter.FillSchema(cTables(SQLString.ToLower), SchemaType.Source)
        Catch ex As Exception
            RaiseEvent Err(ex)
        End Try