problems setting sql query

i have the following code and am stuck how to set mySQL as an existing SQL query named Qry_Report1

could anyoneone help me with what i am missing please

Sub SQLTransfer()
Dim dayFrom As String
Dim dayTo As String
Dim MySQL As String

dayFrom = Me.TextFrom
dayTo = Me.TextTo

MySQL = "SELECT Main.FaultNumber, Main.DateFault, Main.TimeFault, Main.NGTEngineer, Main.NGTEngineerTelephone, Main.Site, Main.BriefDescription, Main.PassedTo, Main.Additional" & _
"From Main" & _
"WHERE (((Main.TimeFault)>=#" & dayFrom & "# And (Main.TimeFault)<=#" & dayTo & "#));"




Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
myRecordSet.Open MySQL

End Sub

Thanks

Ste