Microsoft eMbedded Visual Basic 3.0

I am getting “An error was encountered while running this program ActiveX component can’t create object : CreateObject” error while executing following lines in Microsoft embedded Visual Basic 3.0.

Dim objConnection
Dim objRecordset
Set objConnection = CreateObject(“ADOCE.Recordset.3.0”)