einfach die Datei die du Einbinden magst ungefähr so automatisch einbinden lassen:
1. Modul erstellen mit folgenden Code, natürlich für deine Zwecke abgewandelt:
Function Autostart()
Dim ref As Access.Reference
Dim strDateiPfad(2) As String 'gilt für 2 Verweise (klar!)
strDateiPfad(1) = "C:\Programme\Gemeinsame Dateien\System\ADO\msado25.tlb"
strDateiPfad(2) = "C:\Progra~1\Gemein~1\Micros~1\dao\dao360.dll"
On Error GoTo fehler
'Hier werden die Verweise zugewiesen.
'Falls ein Verweis schon existiert, wird ein Fehler 32813 ausgeworfen,
'der in der Fehlerbehandlung abgefangen wird.
For i = 1 To 2
Application.References.AddFromFile strDateiPfad(i)
Next i
Exit Function
fehler:
If Err.Number = 32813 Then Resume Next
End Function
2. Schritt
Makro mit dem Namen autoexec erstellen und Autostart() ausführen lassen, dann wird das Modul, wenn es nicht eingebunden sein sollte, automatisch auf dem Rechner eingebunden.
Hinweis:
Der Pfad zu deiner ActiveX Data Object Libary wäre c:\programme\gemeinsame dateien\system\ado\msado27.tlb
Alles klar :confused: :confused: