rs1.CursorLocation = adUseClient
rs1.Open sqlstr1_GE, cn, adOpenDynamic, adLockOptimistic

Public cnnEP As ADODB.Connection
Public rstEP As ADODB.Recordset
Private Sub addCreateLink()
    Dim strCnnString$
    'подключение к базе
    strCnnString = "Provider=sqloledb;Data Source=...;Initial Catalog=...;User Id=...;Password=...;"
    Set cnnEP = New ADODB.Connection
    cnnEP.Open strCnnString
End Sub
Private Sub UserForm_Initialize()
    Application.Run "addCreateLink"
    stSQL = "SELECT DISTINCT Supplier FROM Supplier6 ORDER BY Supplier"
    Set rstEP = New ADODB.Recordset
    rstEP.CursorLocation = adUseClient
    rstEP.Open stSQL, cnnEP, adOpenStatic, adLockReadOnly
    If rstEP.RecordCount >  0  Then
        Do While Not rstEP.EOF
            Me.ListBox1.AddItem rstEP.Fields("Supplier")
            rstEP.MoveNext
        Loop
    End If
    rstEP.Close
    Set rstEP = Nothing
End Sub

rstEP.Open stSQL, cnnEP, adOpenStatic, adLockReadOnly

rstEP.Open stSQL, cnnEP, adOpenDynamic, adLockOptimistic