VB database connection problem

[ncht]

i am facing a database connectiion problem that i have writen code with connect to the database using ADODB , and i am sure that the connection is made an execution of query can be done succefully with some common query
such as "select * form report"
however , when i excute a stored procedure error prompt out with

Runtime Error "3021"
either BOF or EOF is True,or the current record has been deleted

I am sure that there is data in the database and the query work fine if i use the SqlAdv to run it.and i am using windowxp SP2 which has mdac 2.8

could anyone tell me how to fix the problem?

the below is my code

Private Sub execute_Click()
Dim Connection As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Bs As New ADODB.Recordset
Dim ExApp As New Excel.Application
Dim ExWk As New Excel.Workbook
Dim EXWs As New Excel.Worksheet
Dim EXRs As Excel.Range
Dim sql As String
 
Set Connection = New ADODB.Connection
Connection.Open ("DSN=RET_DATA;UID=user;PWD=password")
 
Set Rs = Connection.execute("sp_report 20071014,20071015")
 
Rs.MoveFirst
 
ExApp.Visible = True
Set ExWk = ExApp.Workbooks.Open("C:\Documents and Settings\ncht\Desktop\test2.xls")
Set EXWs = ExApp.Worksheets("Sheet2")
Set EXRs = ExApp.Range("A1")
 
EXRs.CopyFromRecordset Rs
 
Rs.Close
End Sub
 

[debasisdas]

Is the procedure returning any value when executed independently at database level ?

[ncht]

the procedure does return the field and the properties when i run the debug mode and add watch on the result set yet both the BOF and EOF set to True



and when i execute another query it can also extract the recordset into the excel file...

thanks for your reply ^^