Question

VBA 运行时显示错误424要求对象

Public adocon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub Main()
adocon.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_yygl.mdb;Persist Security Info= False"
End Sub
Public Function ESQL(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open StrCnn
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function

Public Function StrCnn()
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_yygl.mdb;Persist Security Info= False"
End Function

Answer 1

ESQL 对象没有定义！！！
你set肯定会报错。。。。