Dim conn20101 As Object
            Set conn20101 = CreateObject("ADODB.Connection")
            Dim rst20101 As Object
            Set rst20101 = CreateObject("ADODB.Recordset")
            conn20101.Provider = "dBase III"
            conn20101.Properties("Data Source").Value = "e:\SC33.DBF"
            conn20101.Open "DRIVER={Driver Microsoft dBase (*.dbf)};DBQ= & App.Path)"
            rst20101.Open "Select DESCR from SC33", conn20101, adOpenForwardOnly, adLockReadOnly
            If rst20101.EOF Then MsgBox "Íè÷åãî íå ïîëó÷èë!"
            MsgBox "---" & rst20101.Fields("DESCR")