这条语句如何了

这条语句怎么了？
我在学习的过程当中，写了这样的一个语句，可为什么总提示我“用户定义类型未定义”为什么呢？
Public   Function   ExecuteSQL(ByVal   SQL   As   String,   MsgString   As   String)   As   ADODB.Recordset
      Dim   cnn   As   ADODB.Connection
      Dim   rst   As   ADODB.Recordset
      Dim   sTokens()   As   String
     
      On   Error   GoTo   ExecuteSQL_Error
     
      sTokens   =   Split(SQL)
      Set   cnn   =   New   ADODB.Connection
      cnn.Open   ConnectString
      If   InStr( "INSERT,DELETE,UPDATE ",   UCase$(sTokens(0)))   Then
            cnn.Execute   SQL
            MsgString   =   sTokens(0)   &   "   query   successful "
      Else
            Set   rst   =   New   ADODB.Recordset
            rst.Open   Trim$(SQL),   cnn,   adOpenKeyset,   adLockOptimistic
            Set   ExecuteSQL   =   rst
            MsgString   =   "查询到 "   &   rst.RecordCount   &   "   条记录   "
      End   If
ExecuteSQL_Exit:
      Set   rst   =   Nothing
      Set   cnn   =   Nothing
      Exit   Function
ExecuteSQL_Error:
      MsgString   =   "查询错误:   "   &   Err.Description
      Resume   ExecuteSQL_Exit
End   Function

------解决方案--------------------
引用ADO了吗？
------解决方案--------------------
对啊,F8单步运行一下,看出错的是那一行

看代码应该是没有引用ADO的了!

project----References