点击按钮后报错,错误是类型不匹配!
其中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
分享数据库前沿,解构实战干货,推动数据库技术变革