Dim m_MeetingName, m_City, m_title As String
Dim m_sql As Long
Dim dbs As Database, rst, rst2 As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Related Conference Categories", dbOpenTable)
rst.MoveFirst
Do Until rst.EOF
m_City = "*"
m_title = "*"
m_MeetingName = rst("RelatedConference")
MsgBox rst("RelatedConference")
m_sql = "SELECT Count([Sourcecodes Test].ClientID) AS CountOfClientID FROM ([Related Conference Categories] INNER JOIN [Sources Test] ON [Related Conference Categories].RelatedConference = [Sources Test].[Related Conferences]) INNER JOIN [Sourcecodes Test] ON [Sources Test].[Source Code] = [Sourcecodes Test].SourceCode WHERE ((([Sources Test].[Related Conferences]) '" & m_City & "' & '" & m_MeetingName & "' & '" & m_title & "' ));"