连接数据库问题

[aotian16]

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 = Nothing

rs.Open sql, cncc这句一直报 连接无法用户执行操作 在此上下文中它可能已经被关闭

求解决

[vansoft]

cncc.open呢？

[云路]

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