急啊，哪里出错了？帮忙来看看吧？？？？？在线等候？？？

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Set RS = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
Set rpt_XfrR00.DataSource = RS
‘或者下面执行================
Set rpt_XfrR00.DataSource = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
’=============================能这样吗？
rpt_XfrR00.Refresh
rpt_XfrR00.Show
注：其中rpt_XfrR00为报表，
左想右想都不知道哪里错了。不明白啊，