>>338さん

レスありがとうです。
ごめんなさい、全然解らないです。。。

　objADOcmd.Parameters.Append p0
　objADOcmd.Parameters.Append p1
　objADOcmd.Execute
　を

objADOcmd.Parameters.Append p0
　objADOcmd.Parameters.Append p1
Set rs = New ADODB.Recordset
Set rs = objADOcmd.Execute
MsgBox rs.Fields(0).Value

に変えてみましたが、こう言う事であってるでしょうか。
でも動かなかったので間違ってますよね・・・
すいません、詳しく教えていただけますでしょうか。