？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？请来帮帮忙！！

Question

Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码    With adoCNAccess1
        If .State <> adStateOpen Then
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
            .ConnectionTimeout = 5
            .Open
            If .State = adStateOpen Then
                OpenAccess = "数据库连接成功"
            Else
                OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
                MsgBox "数据库连接失败，请找系统管理员进行检查 ！"
End
            End If
        End If
    End With

Answer 1

Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码    With adoCNAccess1
        If .State <> adStateOpen Then
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
            .ConnectionTimeout = 5
            .Open
            If .State = adStateOpen Then
                OpenAccess = "数据库连接成功"
            Else
                OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
                MsgBox "数据库连接失败，请找系统管理员进行检查 ！"
            End If
        End If
    End With