请教一下，为什么运行提示我子程序或函数未定义？

Dim rstmember As ADODB.Recordset
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "请将信息填写完整", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'添加新记录
sqlstr = "select * from sheet1$"
Set rstmember = ExecuteSQL(sqlstr, msgtext)
rstmember.AddNew

提示的错误语句是：Set rstmember = ExecuteSQL(sqlstr, msgtext)

ExecuteSQL(sqlstr, msgtext)
这个方法没有定义

有写警告可以不用管```是用的版本不同造成的.....

错误是什么没看清楚```你的意思应该是定义重复或者没定向````

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！