' define constants for ADOCE

Public Const adOpenForwardOnly = 0
Public Const adOpenKeyset = 1
Public Const adOpenDynamic = 2
Public Const adOpenStatic = 3

Public Const adLockReadOnly = 1
Public Const adLockPessimistic = 2
Public Const adLockOptimistic = 3

Public Const adStateClosed = 0
Public Const adStateOpen = 1

' declare global variables
Public cnProdaja As ADOCE.Connection
Public rsProdaja As ADOCE.Recordset
This is code from vb6 mobile,how to use this in vb2005 mobile.