_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Sub test()
  Dim myDAO As DAO.DBEngine
  Dim db As DAO.Database
 
  Set myDAO = Access.Application.DBEngine
 
  Set db = myDAO.CreateDatabase("C:\Access_Im_Jahr2021.MDB", dbLangGeneral)
 
  MsgBox db.Name
 
End Sub

Dim adoCommand As Command
   Dim adoConnection As Connection
   Dim strBase As String, strFilter As String, strAttributes As String
   Dim objRootDSE As Object
   Dim strDomain As String, strQuery As String, strName As String, strCN As _
     String
   Dim adoRecordSet As Recordset
   Dim adoFld As ADODB.Field
   Dim i As Long
 
   Set adoCommand = New Command
   Set adoConnection = New Connection
 
   adoConnection.Provider = "ADsDSOObject"
   adoConnection.Open "Active Directory Provider"
 
   Set adoCommand.ActiveConnection = adoConnection
   Set objRootDSE = GetObject("LDAP://RootDSE")
 
   'On Error Resume Next
 
   strDomain = objRootDSE.Get("defaultNamingContext")
   strBase = "<LDAP://" & strDomain & ">"
   strFilter = "(&(objectCategory=person)(objectClass=user) (department=" & _
     Gesuchte_Stelle & ") )"
   strAttributes = "displayName,telephoneNumber,sn"
   strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
   With adoCommand
        .CommandText = strQuery
        .Properties("Page Size") = 100
        .Properties("Timeout") = 30
        .Properties("Cache Results") = False
   End With
 
   Set adoRecordSet = adoCommand.Execute

Sub test()
  Dim myDAO As DAO.DBEngine
  Dim db As DAO.Database
 
  Set myDAO = Access.Application.DBEngine
 
  Set db = myDAO.OpenDatabase("Pfad und Name deiner Datenbank")
 
  MsgBox db.Name
 
End Sub