Olá Pessoal,


Sou um novo usuário do site e tenho algumas sobre desenvolvimento em
Windows CE e espero que vc possam me ajudar.

Estou desenvolvendo uma aplicação no eVB3.0 para acessar um bd em
Access. Eu transferi o bd para o Pocket e instalei a aplicação, porém
ao tentar executá-lo aparece uma mensagem dizendo que não pode criar
o objeto "CreateObject". O que é esse erro e como faço para eliminá-
lo?

Esta é a rotina que eu estou usando. Ela está certa ou tem algo
errado?

Private Sub Form_Load()

Dim cn As ADOCE.Connection
Dim tbclientes As ADOCE.Recordset

Set cn = CreateObject("ADOCE.Connection.3.1")
cn.Provider = "CEDB"
cn.ConnectionString = "\My Documents\Cliente.cdb"
cn.Open

Set tbclientes = CreateObject("ADOCE.Recordset.3.1")
tbclientes.Source = "SELECT * FROM Clientes"
tbclientes.CursorType = adOpenForwardOnly
tbclientes.ActiveConnection = cn
tbclientes.Open

Do While Not tbclientes.EOF
cbonome.AddItem tbclientes("Nome")
cboendereco.AddItem tbclientes("Endereço")
tbclientes.MoveNext
Loop

tbclientes.Close
Set tbclientes = Nothing
cn.Close
Set cn = Nothing

End Sub


Obrigado,

Marcos