strSQL = "SELECT * FROM qryCrossTotGroup WHERE [Group]='" & Me.cmbGroup.Value & "'"
'MsgBox strSQL

 With MyDatabase
   .QueryDefs.Delete ("tmpOutQry")
    Set MyQueryDef = .CreateQueryDef("tmpOutQry", strSQL)
End With