Bu şekilde de kaldırırsınız referansları.

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

Application.References.Remove "C:\PROGRA~1\COMMON~1\System\ado\msado28.tlb"

End Sub

çok teşekkürler
bir adım ileri daha giderek
programdaki seçilmiş olan referansları listeleyecek bir kod varmıdır
ne için lazım şunun için
bir program yazdık netten dll indridik bir sürü referans ekledik sonra başka pc ye programı götüreceğiz
ama referans karşılıkları olmayınca her seferinde falanca dll yok diye hata verecek tabiki bunu ilk yaparken tüm eklediğimiz dll vb leri bir yere kopyalayabiliriz ama yapmamısız
bir kod yazalım bize tabloda veya sorguda,
kullandığımız refransı adresiyle birlikte göstersin mesela
. alan1 .............alan2
OLE Automation C:\Windows\sysWOW64\stdole2.tlb

hatta bu dosyalarıda bizim belirlediğimiz bir klasöre alıverse tadından yenmez
bir yere program mı götüreceksin
çalıştır hemen referans klasörün hazır olsun
programın bulunduğu klasörde referans alt klasörü içindekilerle seni bekliyor olsun
ustalar mutlaka yapmıştır veya yapabilir

Ben bunun buraya geleceğini biliyordum. Fakat sorunca cevap vereyim istedim.
aşağıdaki fonksiyon ile listeletebilirsiniz.

Public Function kuralreferans()

Dim ad, acik As String

Dim refim As Variant

For Each refim In Application.References

ad = refim.Name

acik = refim.FullPath

Debug.Print ad, acik, refim.Major, refim.Minor, refim.Guid

Next

End Function

tam bitiremedim
ama ekliyorum
ustalar takıldığım yerleri düzeltirlerse çok sevinirim
s.kurala çok teşekkürler

Ustalar belki bitirebilir