adodb连接oracle问题

Question

我的程序如下，执行后报错，请各位指点一下
Private Sub form_load()Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strdb As String'Set cn = New ADODB.Connectioncn.Open "Provider=MSDAORA.1;Password=ic6279admin;User ID=ICADMIN;Data Source=ORAISSUE;Persist Security Info=True"
strdb = "select * from mytable"'Set rs = New ADODB.Recordset
rs.Open strdb, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
'cn.Execute strdbText3.Text = rs.RecordCount 
Set dgd.DataSource = rs rs.Close
cn.Close
End Sub
程序执行后，rs.RecordCount= -1,而且执行到Set dgd.DataSource = rs 这句时报错：行集合不能作为标签

Answer 1

cn.CursorLocation = adUseClient

Answer 2

能解释一下为什么吗？程序是不报错了，但是dgd（datagrid）中什么也没有啊

Answer 3

我跟踪到了，如果不加后面的rs.close和cn.close，就可以看到datagrid中的内容，可是一般都要求写close语句的呀，谁有什么好办法啊，既关闭资源，又能保持在datagrid中的显示