Function poezd(id As Integer)
    Dim db As Database
    Dim rs As Recordset
    Dim Arr() As String
    Set db = DBEngine.OpenDatabase(PathFile & "\NSI.mdb")
    Set rs = db.OpenRecordset("select POEZD_NUM" & _
                              " from POEZD" & _
                              " where TRANSR_ID=3", dbOpenDynaset)
    l% =  0 
    For Each s In rs
        l% = l% +  1 
    Next s
    
    ReDim Arr(l% -  1 )
    l% =  1 
    
    For Each r In rs
        Arr(l%) = r.poezd_num
        l% = l% +  1 
    Next r
    rs.Close
    Set rs = Nothing
    poezd = Arr
End Function