Visual Basic - Error en conexion

Hola:
me sale el error: 3709. "No se puede utilizar la conexion para realizar esta operacion. Esta cerrada o no es valida en este contexto."

Es una base en Access pasada a 97 para poder trabajarla. Y tengo un modulo donde hago la conexion...

Set dbAccess = New Connection
dbAccess.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prestaciones.mdb;Persist Security Info=False"

En el formulario hago lo siguiente...

Dim rsTab AS ADODB.Recordset
Set rsTab = New Recordset
rsTab.Open "select max(codpres) as maxi from cordoba", dbAccess, adOpenDynamic, adLockOptimistic

Y me tira el error antes descripto...
Alguien me puede ayudar??
Gracias por su tiempo...
Aldo

es que para realizar la conexion a la base de datos seria:
Set dbAccess = New Connection
dbAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prestaciones.mdb;Persist Security Info=False"
dbAccess.Open

y en el formulario:
Dim rsTab AS ADODB.Recordset
Set rsTab= New ADODB.Recordset
rsTab.ActiveConnection = dbAccess
rsTab.Source = "select max(codpres) as maxi from cordoba"
rsTab.Open

Pruebalo ahora, ya veras como te va.

Yo diria que esta rutina esta mejor asi:
Set dbAccess = New Connection
dbAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.5;Data Source=" & App.Path & "\prestaciones.mdb;Persist Security Info=False"
dbAccess.Open

y en el formulario:
Dim rsTab AS ADODB.Recordset
Set rsTab= New ADODB.Recordset
rsTab.ActiveConnection = dbAccess
rsTab.Source = "select max(codpres) as maxi from cordoba"
rsTab.Open