Problem with Report

Hi all,

I have a report that works fine until i had to add/change the query that generates the information.

I get a syntax error when the query executes.  However when the query statement is on 1 line it works.  My query is now too long to fit on 1 line...what can you do?

The code looks like this:

   Dim conn As ADODB.Connection
    Dim rs1 As ADODB.Recordset
   
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=192.168.100.101;database=umas;uid=umas;pwd=umas"
    conn.Open

    ' Open the Recordset
    Set rs1 = conn.Execute("select fixtures.gameno, fixtures.roundno, fixtures.gamedate, fixtures.leagueno, fixtures.hteamno, fixtures.ateamno, fixtures.venue, fixtures.gradecode, fixtures.starttime, fixtures.gamenotes, fixtures.gamecompleted, (select teamname from clublist where fixtures.hteamno = clublist.id) as hometeam, (select teamname from clublist where fixtures.ateamno = clublist.id) as awayteam, (Select gradename from competitiongrades where fixtures.gradecode = competitiongrades.id) as gradename, (select leaguename from competitions where fixtures.leagueno = competitions.leagueno) as leaguename, (select groundname from grounds where fixtures.venue = grounds.groundid) as groundname, (select groundtown from grounds where fixtures.venue = grounds.groundid) as groundsuburb, (select groundmelways from grounds where fixtures.venue = grounds.groundid) as groundmelways from fixtures"
        "where fixtures.gamecompleted = 0, fixtures.leagueno = " & (league.ItemData(league.ListIndex) & ", fixtures.roundno = " & (roundno.ItemData(roundno.ListIndex)) & " group by fixtures.gameno", , _
        adCmdText)
    ' Connect the Recordset to the DataReport.
    Set rptblankapp.DataSource = rs1
    rptblankapp.WindowState = vbMaximized
    rptblankapp.Show vbModal

    rs1.Close
    conn.Close