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.ConnectionString = sConnStr
myConn.Open


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