Есть условная форма в полем Kol. Модуль формы:

Option Compare Database
Option Explicit

Private cnn As ADODB.Connection
Private rst As New ADODB.Recordset

Private Sub Form_Close()
Set cnn = Nothing
Set rst = Nothing
End Sub

Private Sub Form_Load()
Set cnn = CurrentProject.Connection
rst.Open "SELECT Kol FROM tablTest WHERE ID=" & OpenArgs, cnn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
cnn.BeginTrans
End Sub

Private Sub But_Cancel_Click()
cnn.RollbackTrans
DoCmd.Close acForm, Me.Name
End Sub

Private Sub But_Ok_Click()
cnn.CommitTrans
DoCmd.Close acForm, Me.Name
End Sub

Private Sub butTest_Click()
Me.Kol = 25
End Sub

Ну так вот, если обновлять "ручками" поле Kol - Усё окей. Но если нажать на кнопку butTest, то Access XP "вылитит без объяснений". Хотя в Access 2000 работает все нормально. Может я чего не то делаю, а?

Действительно, поменял на ADO 2.5, все Ок!

Нет ADO здесь не причем.

Сделал следующее:

Private Sub Form_Load()
Set cnn = CurrentProject.Connection
rst.Open "SELECT Kol FROM tablTest WHERE ID=" & OpenArgs, cnn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
rst.close 'Добавил
cnn.BeginTrans
End Sub