Khi bạn chạy một loạt lệnh bằng ADODB, tôi tin rằng nó chạy từng lệnh riêng biệt. Để buộc chạy lệnh tiếp theo, bạn phải sử dụng như sau:
Set rs = rs.NextRecordset()
Thay đổi phần cuối của thói quen của bạn thành phần sau sẽ thực hiện thủ thuật:
Set rs = New ADODB.Recordset
rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic
Set rs = rs.NextRecordset
MsgBox (rs.Fields(0).Value)