关于VB开发软件调用ADO时候使用ShowError报错

一个简单的VB调用
'''''''''''''''''''''''''''''''''''''''''''''''
Dim xnrs As Recordset
Private Sub Form_Load()
On Error GoTo dealerror
Dim conn As New Connection
'连接数据库
xn = "provider=microsoft.jet.oledb.4.0;" & "data source=hd.mdb"
conn.ConnectionString = xn
conn.Open
'创建记录集

Set xnrs = New Recordset
Set xnrs.ActiveConnection = conn
xnrs.CursorLocation = adUseClient
strsql = "select *from admin"
xnrs.Open strsql
xnrs.ActiveConnection = Nothing
conn.Close
Set conn = Nothing
cmbstatus.ListIndex = 0
Exit Sub
dealerror:
msg = "执行失败" & abc & Err.Description
ShowError msg
End Sub
''''''''''''''''''''''''''''''''''''''''''''''
编译的时候系统报  子程序或函数未定义  （指的是ShowError）
请高手务必指点

---

我看见书上用的这个过程是调用错误的啊，而且我开始的时候用
On Error GoTo dealerror
定义了如果出错则跳到这里啊
{{--