连接数据库问题

Question

Dim cncc As New ADODB.Connection
    
    sql = "select b.* from  poorder a inner join poorderentry b on a.finterid=b.finterid  where " & tempstr
    cncc.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
     + "User ID=sa;password=SA;Initial Catalog=A123456789;Data Source=."
    MsgBox 1
    rs.Open sql, cncc
    MsgBox 2
    
    rs.Close
    Set rs = Nothingrs.Open sql, cncc这句一直报  连接无法用户执行操作 在此上下文中它可能已经被关闭求解决

Answer 1

cncc.open呢？

Answer 2

cncc.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
     + "User ID=sa;password=SA;Initial Catalog=A123456789;Data Source=." 这个后面加上  cncc.open记得用完后 cncc.close