when i run the query:

Dim rs As New Recordset
rs.Open "Select * from EMPLOYEES", cn, adOpenDynamic, adLockOptimistic

This runtime error pops up:

Run-Time Error '-2147168242( 8004d00e) ':
Automatic Transaction mode is disabled.

I use the following connection:

Dim myConn As New ADODB.Connection
Dim sConnStr As String

sConnStr = "Provider=LCPI. IBProvider; Data Source=D:\MPM ---
\MEDSYS.GDB; user=SYSDBA; password= masterkey"

myConn.ConnectionSt ring = sConnStr
myConn.Open

I'm a new user of Firebird. How can i fix this bug?