程序编译不成功

Question

Public Function Read_Text_File() As ADODB.Recordset      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                  "DBQ=" & "c:\ " & ";", "", ""      rs.Open "select * from [jjj.txt]", conn, adOpenStatic, _
                  adLockReadOnly, adCmdText
      Set Read_Text_File = rs
      Set rs = Nothing
      Set conn = Nothing
End Function
Private Sub Command1_Click()
 Set dgData.DataSource = Read_Text_File
End Sub这个程序我编译的时候运行到
这一行的时候Set dgData.DataSource = Read_Text_File
提示说是（要求对象）
什么意思？？
谁能告诉我？
该怎么做。

Answer 1

你都把
  Set rs = Nothing
      Set conn = Nothing给nothing完了，你说会存在吗？
   Private Sub Command1_Click()
  Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                  "DBQ=" & "c:\ " & ";", "", ""      rs.Open "select * from [jjj.txt]", conn, adOpenStatic, _
                  adLockReadOnly, adCmdText
       Set dgData.DataSource = rs
 
End Sub

Answer 2

谢了。
Set dgData.DataSource = Read_Text_File
运行了一次以上这个语句后我的数据都到哪里去了
如何调出来？？

Answer 3

你的写法有问题，请不要自己写函数，直接对控件赋予recordset你写Read_Text_File这个function就是错误的思路