CurrentProject.Properties("DataSource")

CurrentProject.Connection.Properties("Data Source")

    Dim PauseTime: PauseTime =  2  * Rnd
    Dim Start:     Start = Timer
    Do While Timer < Start + PauseTime:  DoEvents: Loop

"Не найдена библиотека или компонент: " & ref.Name & " (" & ref.Guid & ")", _

Debug.Print oServer.Logins.Count =  0 

select name from master..syslogins

name
--------------------------------------------------------------------------------------------------------------------------------
sa
##MS_SQLResourceSigningCertificate##
##MS_SQLReplicationSigningCertificate##
##MS_SQLAuthenticatorCertificate##
BUILTIN\Administrators
NT AUTHORITY\SYSTEM
LAURESTA\SQLServer2005MSSQLUser$BAZE$BAZE
LAURESTA\SQLServer2005MSFTEUser$BAZE$BAZE
BUILTIN\Users
NT AUTHORITY\NETWORK SERVICE
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
##MS_AgentSigningCertificate##
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer
LAURESTA\qwerqwerqwerqwer

(20 row(s) affected)

...
Set oServer = New SQLDMO.SQLServer

With oServer
    .LoginSecure = True
    .Connect
End With
    'Stop
For Each oUser In oServer.Logins
    If Left(oUser.Name,  2 ) <> "sa" And Left(oUser.Name,  7 ) <> "BUILTIN" Then
True Then
        Debug.Print oUser.Name
    End If
Next oUser

LAURESTA\d.bykovas
LAURESTA\qweqweqwer
LAURESTA\qweqweqwer
LAURESTA\qweqweqwer
LAURESTA\qweqweqwer
LAURESTA\qweqweqwer
LAURESTA\qweqweqwer

Public Function list()
Dim oServer As SQLDMO.SQLServer: Set oServer = New SQLDMO.SQLServer
Dim oUser As SQLDMO.Login
    
With oServer
    .LoginSecure = True
    .Connect
End With

For Each oUser In oServer.Logins
    Debug.Print oUser.Name
Next oUser

End Function

    .Connect

    .Connect ("Bychara")

    .Connect ("BAZE\BAZE")