Re: How to get an ADO control in my Excel 2002?

Try changing ThisWorkbook to ActiveWorkbook.
My code was for an add-in and that needed ThisWorkbook.
It worked for me though in a normal workbook.

RBS

"NiceGuy" <NiceGuy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:1B5B1275-BA2E-4E92-824E-FE6AA5776BC3@xxxxxxxxxxxxxxxx
I'd say "yes". But what do you mean "normal workbook in a normal code module"?


"RB Smissaert" wrote:

Works with me even on Excel 2000.
Did you run it in a normal workbook in a normal code module?

RBS

"NiceGuy" <NiceGuy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:BD7DA1B0-E152-4E7B-937C-4072CFF37CCB@xxxxxxxxxxxxxxxx
>I ran this sub, it gave me this message:
> run time error '1004'
> Method 'VBProject' of object '_workbook' failed
>
> What does it mean?
>
> Thanks
>
>
>
> "RB Smissaert" wrote:
>
>> I don't think there is an ADO control but you will need a reference to
>> the
>> Microsoft ActiveX Data Objects Library and this code will set the
>> reference
>> to that library:
>>
>> Sub AddADO()
>>
>> Dim r
>>
>> For Each r In ThisWorkbook.VBProject.References
>> If r.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And >> r.Major
>> = 2
>> Then
>> Exit Sub
>> End If
>> Next
>>
>> On Error GoTo NOTFOUND
>>
>> 'although usually the ADO version will be higher, doing Minor:=0 >> will
>> install
>> 'the higher version if available. On the other hand when you >> specify
>> Minor:=5
>> 'and only a lower version is available, this can't be installed
>>
>> '----------------------------------------------------------------------------
>> ThisWorkbook.VBProject.References.AddFromGuid _
>> GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _
>> Major:=2, Minor:=0
>> Exit Sub
>>
>> NOTFOUND:
>> On Error GoTo 0
>>
>> End Sub
>>
>>
>> Once you have this reference you can set your connection and work with
>> the
>> database.
>> Plenty of examples on the net how to do this.
>>
>>
>> RBS
>>
>>
>> "NiceGuy" <NiceGuy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
>> news:D66FF1C1-93E1-4662-8AF5-54EB19D57D07@xxxxxxxxxxxxxxxx
>> > I'm developing a small program using Excel 2002 and VBA with a
>> > connection
>> > to
>> > Access. However there is no ADO control in my excel. Where do I get >> > one
>> > and
>> > how to register it?
>>
>>



.