运行时提示"连接无法用于执行此操作。在此上下文中它可能已被关闭或无效"

我的程序运行时提示"连接无法用于执行此操作。在此上下文中它可能已被关闭或无效"，我是新手，求教中……谢谢。

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim txtSql As String
Dim MiCount As Integer
If Trim(user.Text) = "" Then
        MsgBox "用户名不能为空，请重新输入用户名！", vbExclamation, sign
        user.SetFocus
        Exit Sub
    Else
        txtSql = "SELECt * FROM user WHERe user='" & Trim(user.Text) & "'"
        rs.Open txtSql, con, adOpenDynamic, adLockOptimistic, adCmdText
   
        If rs.EOF = True Then
            MsgBox "没有此用户，请重新输入！", vbExclamation, sign
            user.Text = Empty
            user.SetFocus
         Else
            If Trim(password.Text) = Trim(rs.Fields(2)) Then
                rs.Close
                Me.Hide
            Else
                MsgBox "密码不正确！请重新输入！", vbExclamation, sign
                password.SetFocus
                password.Text = ""
            End If
        End If
    End If
    MiCount = MiCount + 1
    If MiCount = 3 Then
        Me.Hide
    End If

你找到edit目录下的include目录下的Startup.asp这个文件，然后把下面的代码复制替换掉里面的代码； <%@ Language=VBScript CODEPAGE=936%><% Option Explicit %><%' ============================================' 常用全局变量' ============================================' 数据库对象Dim oConn, oRs, sSql' ============================================' 初始数据处理' ============================================' 执行每天只需处理一次的事件'Call BrandNewDay()' 初始化数据库连接'Call DBConnBegin()' ********************************************' 以下为初始函数' ********************************************' ============================================' 执行每天只需处理一次的事件' ============================================Sub BrandNewDay() Dim sDate, y, m, d, w Dim sDateChinese sDate = Date() If Application("date_today") = sDate Then Exit Sub y = CStr(Year(sDate)) m = CStr(Month(sDate)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(sDate)) If Len(d) = 1 Then d = "0" & d w = WeekdayName(Weekday(sDate)) sDateChinese = y & "年" & m & "月" & d & "日&nbsp;" & w Application.Lock Application("date_today") = sDate Application("date_chinese") = sDateChinese  '今天的中文样式 Application.UnlockEnd Sub ' ********************************************' 以下为数据库相关函数' ********************************************' ============================================' 初始化数据库连接对象' 使用原则：最迟调用，最早释放' ============================================Sub DBConnBegin() ' 如果数据库对象已打开，不要再打开 If IsObject(oConn) = True Then Exit Sub ' 你可以不需要打开数据库连接对象而直接打开记录集对象，但如果你需要打开多个记录集对象的话，效率是很低的。 ' 如果你不创建一个数据库连接对象，ADO会在每个记录集打开时自动创建一个新的数据库连接对象，就算你用的是相同的SQL语句。 Set oConn = Server.CreateObject("ADODB.Connection") On Error Resume Next ' Access数据库 oConn.Open "Provider=Micr