VB6 ADO BeginTransのエラー (ID:141698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 環境はVB6です。 OS：WindowsVista DB：SQLServer2005 ADOを使用してDBを開き保存処理時にトランザクション処理をしています。 そのときに、「このセッションでは、これ以上のトランザクションを開始できません。」とエラーが出てしまいます。 1度だけしか、実行していない（ネストしてない）のに上記エラーが出てしまいます。 WEBで調べてみましたが、ネストしたときは出来ないです。としか書いてません。よって解決できませんでしたので、どなたかお分かりになる方ご教授御願いします。 --- コード --- Set adoCnn = New ADODB.Connection adoCnn.ConnectionString = "接続文字列" adoCnn.Open adoCnn.CommandTimeout = 1000 adoCnn.BeginTrans adoCnn.Execute "SQL文" adoCnn.CommitTrans adoCnn.Close Set adoCnn = Nothing