VB6.0连接SQL 2008

Question

本人对VB6.0不是很熟悉，最近要做个MIS现有测试代码，总是出错，特此请教！Dim cmd As String
    Dim Connstr As String
    Dim Conn As ADODB.Connection 
    Dim Rs As ADODB.Recordset 
    Conn.Provider = "SQLOLEDB.1"   '这里出错  91  什么对象变量或with块变量未设置
    Conn.ConnectionString = "Initial Catalog=XSCJ;Data Source=WYPC-PC;Persist Security Info=False;Integrated Security=SSPI"
    Conn.Open    
    cmd = "select 学号 from XS where XS.姓名='" + txtUserName.Text + "'"
    Rs.Open cmd, Conn, adOpenDynamic, adLockBatchOptimistic
    If Not (Rs.BOF And Rs.EOF) Then
        Dim pwd As String
        If txtPassword = pwd Then
            LoginSucceeded = True
            Me.Hide
        Else
            MsgBox "无效的密码，请重试!", , "登录"
            txtPassword.SetFocus
        End If
    Else
        MsgBox "无效的用户名，请重试!", , "登录"
    End If

Answer 1

Dim Conn As new ADODB.Connection 
Dim Rs As new ADODB.Recordset