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

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)

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

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