Database

SELECT * FROM Coupons LEFT JOIN (Countries, Chapionships, Teams)<br />
ON (Countries.CountryID=Coupons.CountryID AND Chapionships.ChapionshipID=Coupons.ChapionshipID AND ( Teams.TeamID=Coupons.HomeTeamID OR Teams.TeamID=Coupons.HostTeamID)) Where Date='2009-07-31' order by Time Asc;	

CREATE PROCEDURE dbo.sp_UpdateItemColumn
(
@PACKAGE nvarchar(255),
@COLUMN nvarchar(30),
@VALUE nvarchar(100),
@LASTCHANGEBY nvarchar(100)
)
AS

declare @sql nvarchar(1024)
set @sql=''

set @sql=@sql+'update tbl_swbom_checklist_items set '+@COLUMN+'='''+@VALUE+''' where package='''+@PACKAGE+''' '

--print @sql

exec sp_executesql @sql
GO

'An Array of Query Names to use as the RowSource for A Tab ListBox.
Dim lstFindRptNames As Variant
    
    lstFindRptNames = Array("lstByCusName", _
    "lstByContact1", _
    "lstByContact2", _
    "lstByContact3", _
        ...
    "lstByProspect", _
    "lstByCustomer")


'Populate the ListBox by referencing a Query of the same name as the RowSource
lstFindRptNames(TabCtl0.Value).RowSource = lstFindRptNames(TabCtl0)