请教高手啊/我快被折磨死拉，谁来帮个忙啊？给分的真的

[gx775]

我要在2个TEXT文本里不断的换各种日期来查询各段时间的业务状况，但是 第2次更改了日期再查询就报错啊
我在操作时只要更换了日期后再点查询就报实时错误‘3705’对象打开时操作不被允许，然后高亮的黄条就在RS。OPEN上了一下是代码，你帮忙看看吧，谢谢
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
————————————————————————————————
Private Sub Command1_Click()
rs.Open "select hf_rtb1t1.ensure_rq rr,hf_medium.name yhmc,hf_agency.name ywyxm,hf_rta1.station_a yhdm,hf_rta1.bm_app bdh,hf_rta1.account_in zzzh,hf_rta1.premium bf,rtb1t1_type.jf_kind zzbz, hf_rta1.rq_start rq from hf_rta1,hf_rta3,hf_rtb1t1,rtb1t1_type,hf_medium,hf_agency " _
& " where hf_rta1.bnch_adm='02' and hf_agency.agency_code=hf_rta1.agency_code" _
& " and hf_rta1.station='1701'" _
& " and hf_rta1.station_a=hf_medium.medi_code" _
& " and hf_rta1.bm_contract=hf_rta3.bm_contract" _
& " and hf_rta3.bm_contract=hf_rtb1t1.bm_app" _
& " and hf_rtb1t1.bm_jf=rtb1t1_type.bm_jf and rtb1t1_type.jf_kind='4'" _
& " and hf_rtb1t1.ensure_rq between '" + Text1.Text + "' and '" + Text2.Text + "' " _
& " order by 1,2", db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub
——————————————————————————————
Private Sub Form_Load()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
'db.Open "Provider=SQLOLEDB.1;Data Source=hftkgbs;User ID=hefei;Password=hefei;Initial Catalog=tkgbs"
db.Open "PROVIDER=MSDASQL;dsn=10.9.41.3;uid=hefei;pwd=hefei;database=tkgbs"
Set rs = New ADODB.Recordset
'Me.DTPicker1 = Now() - 1
'Me.DTPicker2 = Now()
End Sub

[gx775]

查一次可以出来结果，在最后加上RS。CLOSE后DATAGRID里就再也不出来任何数据了，我不能查一次关一次再查吧，怎么办啊，能写出来吗？各位专家啊，帮帮忙啊

[rexyudl]

在RS.OPEN前做个判断
if rs.state=adstateopen then rs.close
rs.open ……

[饮水需思源]

rs.Open ...这句前加上：if rs.state=adstateopen then rs.close

'对象打开之前先判断，如果是打开状态则关闭

[Cooly]

On Error Resume Next
RS.Close
RS.Open .........................

[rexyudl]

记录集用完了当然要关了啊 ！不然你下次再打开同一个记录集时一定会报这个错误的啊！

[gx775]

谢谢上面几位了，我会给你们分的，能留下你们的信箱吗？我想以后继续请教你们