Conexión a Access a través de Recordset (Error 3709)

[Cosertel]

Hola a todos!

tengo una conexión a una base de datos Access 2000 a través de un recordset. La cuestión es que ahora me da un error 3709:"No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto"

he aquí el código (Lo que está en azul es donde me indica el error):

Private Sub Form_Load()
Set rsArea = New ADODB.Recordset
rsArea.Open "Select * From Area", cnGuarderia, adOpenDynamic, adLockOptimistic
Set DtaComArea.DataSource = rsArea
Set Text1.DataSource = rsArea
If rsArea.RecordCount > 0 Then rsArea.MoveFirst
End Sub

La conexión cnGuarderia la defini en un modulo

he aqui el código tambien:

Public cnGuarderia As ADODB.Connection

Private Sub Main()
Set cnGuarderia = New ADODB.Connection
'Establecer sus propiedades
With cnGuarderia
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "Guardería.mdb"
End With
cnGuarderia.Open
frmInicio.Show

End Sub

[franko1809]

Como utilizas Sub Main() asumo que desde un modulo .bas debe iniciar el programa desde ahi.

Vete a manu proyecto/propiedades de proyecto/objeto inicial "selecciona Sub Main()"

Espero sea ese el problema.

o quizas te falta agregar la referencia microsoft active x data object 2.x library del menu proyecto/referencias/activas el check correspondiente.

saludos

[Cosertel]

Gracias por ese detallazo.

Esa "tontez" impedía que iniciara el formulario

Thanks Again