如何返回一个Recordset

Question

Function Plan_Info() As Recordset
  Dim MyRs As New ADODB.Recordset
  .........
  return MyRs  -->这里报错误：没有语句结束，直接写return也不行。End Function我想的是得到这个Recordset之后Private Sub Plan_Check_Click()Set DataGrid1.DataSource = Plan_Info()End Sub

Answer 1

把return MyRs  换成set Plan_Info=MyRs

Answer 2

Dim rs As ADODB.Recordset
Set rs = Execute("****")

Answer 3

呵呵.
C的语法是Return啦.
VB直接返回函数名.

Answer 4

在VB里Return是另外的含义GoSub...Return 语句     在一个过程中跳到另一个子程序中执行，执行后再返回。语法GoSub line
...
line
...Return

Answer 5

Function Plan_Info() As Recordset
  Dim MyRs As New ADODB.Recordset
  .........
  set Plan_Info = MyRs  --错误：实时错误13 类型不匹配？
End Function我调用是：
Private Sub Plan_Check_Click()
Set DataGrid1.DataSource = Plan_Info()
End Sub

Answer 6

明白了，Function Plan_Info() As Recordset
不用写返回类型，语法错误