我写的这个函数有问题吗,帮忙看一下

Question

Function execsql(ByVal strsql As String) As ADODB.Recordset
    Dim rstaccess As ADODB.Recordset
    Set cnn = New ADODB.Connection
    conn.Open (conndb) --conndb为连接数据库的connectionstring
    conn.Execute strsql
    Set rstaccess = New ADODB.Recordset
    Set execsql = rstaccess
End Function

Answer 1

Function execsql(ByVal strsql As String) As ADODB.Recordset
    Dim rstaccess As ADODB.Recordset
    Set cnn = New ADODB.Connection
    conn.Open (conndb) --conndb为连接数据库的connectionstring
    Set execsql = conn.Execute strsql
End Function

Answer 2

Function execsql(ByVal strsql As String) As ADODB.Recordset
    Dim rstaccess As ADODB.Recordset
    Set cnn = New ADODB.Connection
    conn.Open (conndb) --conndb为连接数据库的connectionstring
    Set execsql = conn.Execute (strsql)     
End Function