rst。打開Sql，cn。連接字符串
我的數據庫語言不是很好，但是看了妳的代碼，感覺很迷茫。至少有幾種方法可以修改妳的代碼，上面是最簡單的壹種。事實上，您的數據庫在acapp時就已經打開了。OpenCurrentDatabase，並且不需要使用cn重新連接。
所以第二個變化是:
acApp。OpenCurrentDatabase (dbPath)
將cn標註為ADODB。“連接”不需要再次連接。
設置cn = acapp。當前項目。“連接”不需要再次連接。
Dim rst As ADODB。記錄集
Set rst = New ADODB。記錄集
將Sql顯示為字符串
Sql = "Select * From 0012X32 "
Rst.opensql，acApp。' ADOConnectString '我只需要調用這裏的連接數據，這個連接數據存儲在acapp.adoconnectstring中。
rst。MoveFirst
acApp。OpenCurrentDatabase (dbPath)
將cn標註為ADODB。“連接”不需要再次連接。
設置cn = acapp。當前項目。“連接”不需要再次連接。
Dim rst As ADODB。記錄集
Set rst = New ADODB。記錄集
將Sql顯示為字符串
Sql = "Select * From 0012X32 "
Rst.opensql，acApp。' ADOConnectString '我只需要調用這裏的連接數據，這個連接數據存儲在acapp.adoconnectstring中。
rst。MoveFirst
下面是記錄集的OPEN的用法:
Open方法(ADO記錄集)
打開光標。
語法
記錄集。開源，主動連接，光標類型，鎖定類型，選項
參數
來源是可選的。Variant，計算有效的命令對象、SQL語句、表名、存儲過程調用、URL、文件名或包含持久記錄集的流對象。
ActiveConnection是可選的。Variant，計算結果為有效的連接對象變量名或包含ConnectionString參數的字符串。
CursorType是可選的。CursorTypeEnum值，確定提供程序在打開記錄集時應使用的光標類型。默認值為adOpenForwardOnly。
LockType是可選的。壹個LockTypeEnum值，確定提供程序在打開記錄集時應使用的鎖定類型(並發)。默認值為adLockReadOnly。
選項是可選的。壹個長整型值，指示如果Source參數表示Command對象以外的內容，或者記錄集應該從以前保存的文件中還原，則提供程序如何計算Source參數。可以是壹個或多個CommandTypeEnum或ExecuteOptionEnum值，這些值可以與按位AND運算符結合使用。
請註意，如果從包含持久記錄集的流中打開記錄集，使用adAsyncFetchNonBlocking的ExecuteOptionEnum值將不起作用。提取操作將被同步和阻止。adExecuteNoRecords或adExecuteStream的ExecuteOpenEnum值不應與Open壹起使用。
Open方法(ADO記錄集)
打開光標。
語法
記錄集。開源，主動連接，光標類型，鎖定類型，選項
參數
來源是可選的。Variant，計算有效的命令對象、SQL語句、表名、存儲過程調用、URL、文件名或包含持久記錄集的流對象。
ActiveConnection是可選的。Variant，計算結果為有效的連接對象變量名或包含ConnectionString參數的字符串。
CursorType是可選的。CursorTypeEnum值，確定提供程序在打開記錄集時應使用的光標類型。默認值為adOpenForwardOnly。
LockType是可選的。壹個LockTypeEnum值，確定提供程序在打開記錄集時應使用的鎖定類型(並發)。默認值為adLockReadOnly。
選項是可選的。壹個長整型值，指示如果Source參數表示Command對象以外的內容，或者記錄集應該從以前保存的文件中還原，則提供程序如何計算Source參數。可以是壹個或多個CommandTypeEnum或ExecuteOptionEnum值，這些值可以與按位AND運算符結合使用。