Here's a few for you

' DataTypeEnum
Private Const adArray As Long = 8192
Private Const adBigInt As Long = 20
Private Const adBinary As Long = 128
Private Const adBoolean As Long = 11
Private Const adBSTR As Long = 8
Private Const adChapter As Long = 136
Private Const adChar As Long = 129
Private Const adCurrency As Long = 6
Private Const adDate As Long = 7
Private Const adDBDate As Long = 133
Private Const adDBTime As Long = 134
Private Const adDBTimeStamp As Long = 135
Private Const adDecimal As Long = 14
Private Const adDouble As Long = 5
Private Const adEmpty As Long = 0
Private Const adError As Long = 10
Private Const adFileTime As Long = 64
Private Const adGUID As Long = 72
Private Const adIDispatch As Long = 9
Private Const adInteger As Long = 3
Private Const adIUnknown As Long = 13
Private Const adLongVarBinary As Long = 205
Private Const adLongVarChar As Long = 201
Private Const adLongVarWChar As Long = 203
Private Const adNumeric As Long = 131
Private Const adPropVariant As Long = 138
Private Const adSingle As Long = 4
Private Const adSmallInt As Long = 2
Private Const adTinyInt As Long = 16
Private Const adUnsignedBigInt As Long = 21
Private Const adUnsignedInt As Long = 19
Private Const adUnsignedSmallInt As Long = 18
Private Const adUnsignedTinyInt As Long = 17
Private Const adUserDefined As Long = 132
Private Const adVarBinary As Long = 204
Private Const adVarChar As Long = 200
Private Const adVariant As Long = 12
Private Const adVarNumeric As Long = 139
Private Const adVarWChar As Long = 202
Private Const adWChar As Long = 130

Regards,
Peter T


"Rob Wills" wrote in message
...
Hi,

Im looking to return the value of an object constant from the string
equivelent.

As an example I am passing "adInteger" as a string, and wish to return the
integer value (from ADO).

I know this can be laid out in a case statement - but I thought there
might
be a better way.

I've tried CallByName - but I couldn't get this to work

Any other suggestions?

Many thanks
Rob