Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Add
XL.Sheets("Лист1").Name = "Накладная"
XL.Application.ScreenUpdating = False
Dim i As Integer
Do While Not rst.EOF ' записей всего 20 или 30
    i = i +  1 
    XL.Cells(i,  1 ).Value = rst.Fields![detal]
    XL.Cells(i,  2 ).Value = rst.Fields![name]
    XL.Cells(i,  3 ).Value = rst.Fields![kolvo]
    XL.Cells(i,  4 ).Value = rst.Fields![summa]
    rst.MoveNext
Loop
XL.Visible = True
XL.Application.ScreenUpdating = True
Set XL = Nothing

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
    
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};" & "DBQ=" & path_basa & ";" & "DefaultDir=" & path_basa & "\"
conn.Open
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM " & sama_basa, conn