简单问题

Question

下面是模块中的代码我运行时怎么会出现Public Function exesql(ByVal sql As String) As ADODB.Recordset用户类型未定义，怎么定义啊
Public userlevel As String
Public flag As Integer
Public num As Integer
Public condstr As String
Public recs As Integer
Public sel As Boolean
Public Function exesql(ByVal sql As String) As ADODB.Recordset
    sql = Trim$(sql)
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.connectionstring = "dsn=ks;uid=sa;pwd=;"
    conn.open
    Set rst.activeconnection = conn
    rst.locktype = adlockoptimistic
    rst.cursortype = adopenkeyset
    rst.open sql
    Set exesql = rst
    Set rst = Nothing
    Set conn = Nothing
End Function
Public Sub deldata(ByVal tn As String)
   Dim sql As String
   sql = "delete" & Trim$(tn)
   Set conn = New ADODB.Connection
   conn.connectionstring = "dsn=ks;uid=sa;pwd=;"
   conn.open
   conn.Execute sql
   If Trim(tn) = "oper" Then
   sql = "insert oper values('1234','1234','系统管理员')"
   conn.Execute sql
   End If
   conn.Execute sql
   End If
   conn.Close
End Sub
Public Sub endata(keyasc As Integer)
If keyasc = 13 Then
 SendKeys "{tab}"
 End If
End Sub

Answer 1

是不是没有引用微软ADO对象库啊