Ketika Anda menjalankan sekumpulan perintah menggunakan ADODB, saya yakin itu menjalankan masing-masing secara terpisah. Untuk memaksa perintah berikutnya dijalankan, Anda harus menggunakan yang berikut ini:
Set rs = rs.NextRecordset()
Mengubah akhir rutinitas Anda menjadi yang berikut ini akan berhasil:
Set rs = New ADODB.Recordset
rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic
Set rs = rs.NextRecordset
MsgBox (rs.Fields(0).Value)