Question

VB 程序运行后提示：对象打开时，不允许操作。

Public adoCon As New ADODB.Connection '定义一个数据连接Public rs1 As New ADODB.RecordsetPublic Function Cnn() As ADODB.Connection '定义函数 Set Cnn = New ADODB.Connection '返回一个数据库连接 Cnn.Open "Provider=SQLOLEDB.1;Password=853562;Persist Security Info=True;User ID=sa;Initial Catalog=hyzl01;Data Source=167.129.20.197"End FunctionPrivate Sub Form_Load()Adodc1.ConnectionString = Cnn'Adodc1.RecordSource = "select PRTypeId as 价格编号 ,prdisname as 价格名称 from xw_P_PriceType"Adodc1.RecordSource = "select a.pfullname as 商品全名,b.Unit1 as 单位,b.ordid as 单位排序, c.Price as 价格 from ptype as a,xw_PtypeUnit as b,xw_P_PtypePrice as c "If Cnn.State = 1 ThenCnn.CloseEnd IfAdodc1.RefreshSet MSHFlexGrid1.DataSource = Adodc1MSHFlexGrid1.Refresh

Answer 1

Adodc1.ConnectionString = Cnn
ConnectionString属性是个字符串值，也就是"Provider=SQLOLEDB.1;Pass……"这个字符串，而Cnn是个函数，返回值是个连接对象，不是字符串。

此外，
If Cnn.State = 1 Then
Cnn.Close
End If
这里的Cnn也仍然是函数，不是对象，不能这样用的（每运行一次就会Open一次，这样就会出现对象打开时再次打开的情况）。

总之你这段代码很乱啊，既有数据库连接控件，又有数据库连接对象，不知你要干嘛。

Answer 2

应该是你关闭界面时，adodc1还未关闭。这样是不允许的