Microsoft Embedded - ERROR DE CONEXION

trato de conectarme a una base de datos a travez de este codigo

Option Explicit
Public rs As ADOCE.Recordset
Public cnn As ADOCE.Connection
Dim A As String
Private Sub Command1_Click()
Set cnn = CreateObject("ADOCE.Connection.3.0")
cnn.Open App.Path & "\db2.cdb"
End Sub

y me arroja el siguiente error

an error was encountered while running this program: activex component
can't create object:'CreateObject'

si alguien sabe como solucionarlo pliss

Te esta dando error en el create object, porque el ADO de tu aparato no es 3.0, trata con 3.1 , o sino pregunte a ver cual tiene.