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

我要在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