or just add

[vba]

#Const EarlyBound = False 'if using early binding

#If Not EarlyBound Then
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Const adInteger As Long = 3
Const adVarChar As Long = 200
Const adLongVarChar As Long = 203
Const adVarWChar As Long = 202
Const adLongVarWChar As Long = 203
'etc.
#End If
[/vba]