数据库连接问题

Question

Option Explicit
Public objRS  As Recordset    '存取数据库的内容
Public objCn As New ADODB.Connection
Public txtSQL As String  '保存SQL语句
Public UserName As String      '获取用户输入的用户名
Public deleteID As StringPublic Sub subInitDataBase(ByVal strSQL As String)
    Set objCn = New Connection          '实例化Connection对象objCn
    With objCn                          '建立数据库连接
        .Provider = "SQLOLEDB"
        .ConnectionString = "User ID=sa;PWD=;Data Source=(local);" & _
                            "Initial Catalog=学籍管理系统"
        .Open
    End With    Set objRS = New Recordset            '创建客户端的记录集
    With objRS
        .CursorLocation = adUseClient   '指定使用客户端光标
        .CursorType = adOpenStatic      '指定使用静态光标
        .Open strSQL, objCn
        Set .ActiveConnection = Nothing
    End WithEnd Sub
属于什么连接  ？