贴个代码大家帮忙看看

Question

函数，传入一个ｓｑｌ语句，返回一个数据集
Public Function getSelfRecordSet(ByVal csSQL As String) As Recordset
  
  On Error Resume Next
  
  Dim rs As Recordset
  
  Set rs = g_Conn.Execute(csSQL)'执行SQL语句，g_Conn已经连接成功
     
  '根据是否出错，返回给调用者相应的信息
  If Err.Number = 0 Then   
    Set getSelfRecordSet = rs
  Else
    WriteLOG (Err.Description)
  End If
End Function调用
csSQL = "Select * From TableA" 
Dim rs1 As Record
Set rs1 = getSelfRecordSet(csSQL)＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
在函数中，我调试发现ｒｓ记录集已经执行成功，但调用Set rs1 = getSelfRecordSet(csSQL)后，ｒｓ１还是nothing,
不知道哪里错误，求救！

Answer 1

Dim rs1 As New RecordSet

Answer 2

Public Function getSelfRecordSet(ByVal csSQL As String) As Recordset '注意上面.getSelfRecordSet 返回的是  Recordset 类'再看人调用
csSQL = "Select * From TableA" 
Dim rs1 As Record    'RS1 为Record 类
Set rs1 = getSelfRecordSet(csSQL)  '前面是Record 类 后面是 Recordset  类. 赋值不会成功的.'请将红色语句改为
Dim rs1 As Recordset