access2016 中VB代码导出excel的错误

点击按钮后报错，错误是类型不匹配！
其中GetRS()函数为自定义的函数 功能是实现执行sql的select语句，返回查询结果
以下是函数定义
Public Function GetRS(ByVal strSQL As String) As ADODB.Recordset

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
Set GetRS = rs

GetRS_Exit:

Set rs = Nothing
Set conn = Nothing
Exit Function

GetRS_Error:

MsgBox (Err.Description)
Resume GetRS_Exit

End Function