Private Sub Command4_Click()
    Dim PathBase As String:     PathBase = "D:\DataBase\RTEC-201011-13_21"
    Dim User As String:         User = "Valera"
    Dim Password As String:     Password = ""
    
    Dim v77 As Object, result As Variant
    Set v77 = CreateObject("V77.Application")
    result = v77.Initialize(v77.RMTrade, " /D" + PathBase + " /N" + User + " /P" + Password, "")
    
    If result = 0 Then
        Set v77 = Nothing
        MsgBox "Не удалось соединится с 1С ..."
        Exit Sub
    End If
    List1.Clear
    Set sotrudnik = v77.EvalExpr("CreateOject(""Справочник.Сотрудники"")")
    sotrudnik.ВыбратьЭлементы
    sotrudnik.ИспользоватьДату (Date)
    sotrudnik.ПорядокКодов

    Dim i:  i = 0

    Do While sotrudnik.ПолучитьЭлемент > 0
        If sotrudnik.ЭтоГруппа = 0 And sotrudnik.ПометкаУдаления = 0 Then
            List1.AddItem sotrudnik.Код & ", " & sotrudnik.Наименование & vbCrLf
        End If
        i = i + 1:  If i > 50 Then Exit Do 
    Loop
                
    v77.ExecuteBatch ("ЗавершитьРаботуСистемы((0);")
    Set v77 = Nothing
    

End Sub