ADOCE en Emulador

Hola Diego:

Dim cnn As ADOCE.Connection
Dim rst As ADOCE.Recordset

Set cnn = CreateObject("ADOCE.Connection.3.0")
cnn.ConnectionString = app.Path & "\MiBase.cdb"
cnn.Open

Set rst = CreateObject("ADOCE.Recordset.3.0")
rst.Open "SELECT * FROM MiTabla",cnn,adOpenDynamic, adLockOptimistic

rst.Close
cnn.Close

Saludos

RA

"Diego Ramos" wrote in message
news:212501c3e10b$b9995730$

H0la Grupo !!

es un gusto poder expresar mis dudas e ignorancia
para este nuevo lenguaje para mi ( Embedded Visual Basic
3 ) en esta COMUNIDAD.

Lo que estoy necesitando saber es como se hace para abrir
una base Pocket (.cdb) cuando estoy corriendo la aplicacion
en el emulador de pocket, osea EN LA PC.

Muchas Gracias...


Saludos