excutesql有什么用？

excutesql（）这个函数有什么作用？原文是这样的：Private Sub Command1_Click()
Dim txtsql As String
Dim mrc As Adodb.Recordset
Dim msgtest As String
If Trim(Text1.Text) = " " Then
MsgBox "请输入用户名!", vbOKOnly + vbexclaimation, "警告"
Exit Sub
Text1.SetFocus
Else
txtsql = "select * from delu"
Set mrc = excutesql(txtsql, msgtext)
请各位高手帮帮忙拉~~~