修正

call S_test(me.name)

sub S_test(A_frmname as form)
〜
end sub

でした
me.nameでフォームの名前を取得して
その名前で処理したいんですけど
me.nameで型が違うってｴﾗｰが出てしまいます