Crear Consulta desde VBA en Access

Private Sub cmdConsulta_Click()
On Error GoTo Err_cmdConsulta_Click

Dim qdfNew As DAO.QueryDef
Dim strSQL As String

 If Len(Nz(DLookup("Name", "msysobjects", _
 "type=5 and Name= 'MiConsulta'"), "")) <> 0 Then
    DoCmd.DeleteObject acQuery, "MiConsulta"
 End If


strSQL = "SELECT dbo_SWNOMPER001.CEDULA, dbo_SWNOMPER001.APENOM, dbo_SWNOMPER001.DFECNAC, dbo_SWNOMPER001.SEXO, Sum(dbo_SWNOMMDT001.MONTO) AS SumaDeMONTO " & _
"FROM dbo_SwNomVip000 " & _
"INNER JOIN ((dbo_SWNOMMDT001 INNER JOIN dbo_SWNOMPER001 ON dbo_SWNOMMDT001.FICHA = dbo_SWNOMPER001.FICHA) INNER JOIN dbo_SWNOMHMV001 ON dbo_SWNOMMDT001.CODNOM = dbo_SWNOMHMV001.CODNOM) ON dbo_SwNomVip000.CODORG = dbo_SWNOMPER001.CODVP  " & _
"WHERE (((dbo_SWNOMHMV001.PERIODO_INI) >= 76306) And ((dbo_SWNOMHMV001.PERIODO_FIN) <= 76342)) " & _
"GROUP BY dbo_SWNOMPER001.CEDULA, dbo_SWNOMPER001.APENOM, dbo_SWNOMPER001.DFECNAC, dbo_SWNOMPER001.SEXO, dbo_SWNOMPER001.NOMBRES, dbo_SWNOMPER001.APELLIDOS, dbo_SWNOMPER001.SUESAL, dbo_SWNOMPER001.DFECING, dbo_SWNOMPER001.DFECHARETIRO, dbo_SWNOMPER001.CODVP, dbo_SwNomVip000.DESCRIP, dbo_SWNOMMDT001.FICHA, dbo_SWNOMPER001.APENOM, dbo_SWNOMMDT001.CODCON " & _
"HAVING (((dbo_SWNOMMDT001.CODCON)=103 Or (dbo_SWNOMMDT001.CODCON)=2012 Or (dbo_SWNOMMDT001.CODCON)=3330 Or (dbo_SWNOMMDT001.CODCON)=3509));"

Set qdfNew = CurrentDb.CreateQueryDef("MiConsulta", strSQL)
DoCmd.OpenQuery "MiConsulta", acNormal, acEdit

Set MiConsulta = Nothing

Exit_cmdConsulta_Click:
    Exit Sub

Err_cmdConsulta_Click:
    MsgBox Err.Description
    Resume Exit_cmdConsulta_Click

End Sub