如何加入connection组建

创建一个类，代码如下
Public Sub Create(cUserID As String)
Dim conn As New Connection
    Dim rs As New Recordset
    Dim sql As String
    
    conn.ConnectionString = "Provider=sqloledb;Server=ACHANG-39EW5XAS;Database=food;User ID=sa;Password="
    conn.open
    
    sql = "select * from UserInfo where UserID="" & cUserID & """
    
    With rs
     .open sql, conn, 1, 3
     If .EOF And .bof Then
         Exit Sub
     Else
     
     msUserID = Trim(.Fields("UserID"))
     msUserName = Trim(.Fields("Username"))
     End If
     .Close
    End With
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    End Sub编译的时候发现未定义用户类:connection和recordset
是不是要加什么东西啊？
谢谢