请教个小问题.....

Question

    Dim sql As String
    Dim sxml As String
    Dim rs As New ADODB.Recordset
    Dim coon As New ADODB.Connection
    
    sql = "exec cmzdatabase_qy..sp_ReadYPPrice 'C1'"
    coon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cmzdatabase_qy;Data Source=."
    
    sxml = App.Path & "\YP.xml"
    
    If Dir(sxml) <> "" Then Kill sxml
    
    rs.Open sql, coon, adOpenForwardOnly, adLockReadOnly
    rs.Save sxml, adPersistXML
    
    rs.Close初学VB，一到红色部分就提示    实时错误3709  链接无法用于执行此操作，在此上下文中它可能已被关闭或无效

Answer 1

在操作数据前把连接打开
coon.open 
操作完成后关闭连接。
coon.close

Answer 2

.
.
sql = "exec cmzdatabase_qy..sp_ReadYPPrice &apos;C1&apos;" 
    coon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cmzdatabase_qy;Data Source=." 
coon.open
.
.

Answer 3

先把连接打开。再操作记录集
conn.open