GOT IT!!!
Finally got it right...Here it is if anyone is interested
Function ChangeQueryDef() As Boolean
Dim stdocname As String
stdocname = "exsisting query"
'open exsisting query in design mode
DoCmd.OpenQuery stdocname, acViewDesign, acEdit
Dim strQuery As String
Dim...