麻烦帮我看看我的代码错在那里！！！

Question

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Integer
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.ListIndex = 1
Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\199905.mdb;Persist Security Info=False"conn.OpenIf conn.State = 0 Then MsgBox ("连接失败")
Set rs = conn.OpenSchema(adSchemaTables)
i = 0
Do While Not rs.EOF
If rs.Fields("TABLE_TYPE") = "TABLE" Then
i = i + 1
Combo2.AddItem rs.Fields("TABLE_NAME")
End If
rs.MoveNext
Loop
Combo2.ListIndex = 1
sql = "select * from " & Combo2.TextSet rs = conn.Execute(sql)
If rs.State = 0 Then MsgBox ("数据库操作失败")
'Text1.Text = rs.Fields("")dg.DataSource = rs
dg.RefreshEnd Sub
在dg.DataSource = rs这里还是出现找不到方法或成员！！！
在conn.open之前我已经添加了rs.CursorLocation = adUseClient的了！！
麻烦帮我看看，那里错了，我看了一晚上了，都没看出来！

Answer 1

set dg.DataSource = rs吧

Answer 2

如果set dg.DataSource = rs的话，他又说行集合不能作为标签呀！！！

Answer 3

Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim i As Integer
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.ListIndex = 1
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\199905.mdb;Persist Security Info=False"conn.OpenIf conn.State = 0 Then MsgBox ("连接失败")'
Set rs = conn.OpenSchema(adSchemaTables)
i = 0
Do While Not rs.EOF
If rs.Fields("TABLE_TYPE") = "TABLE" Then
i = i + 1
Combo2.AddItem rs.Fields("TABLE_NAME")
End If
rs.MoveNext
Loop
Combo2.ListIndex = 1
sql = "select * from " & Combo2.Text
rs.Close
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockOptimistic, adCmdText
If rs.State = 0 Then MsgBox ("数据库操作失败")Set dg.DataSource = rs
dg.RefreshEnd Sub

Answer 4

为什么加入rs.close呢，能不能解释一下！！！

Answer 5

是conn.CursorLocation = adUseClient而不是rs.CursorLocation = adUseClient
是set dg.DataSource = rs而不是dg.DataSource = rs