I had to do a similar thing and accomplished it through a function:
Public Sub CloseAndOpen(frmparm)
Dim CloseObj As String
Dim OpenObj As String
CloseObj = Mid(frmparm, 1, InStr(1, frmparm, ",") - 1)
OpenObj = Mid(frmparm, InStr(1, frmparm, ",") + 1)
If CloseObj <>...