Public Sub LoadDBFToListObject(path As String)
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkBook.WorkSheets.AddSheet
    
    Dim dbConn As ADODB.Connection
    Set Conn = CreateObject("ADODB.Connection")
    'Conn.ConnectionString = "DRIVER=Microsoft FoxPro VFP Driver (*.dbf);SourceDB=" & path & ";SourceType=DBF;NULL=YES;DELETED=YES;BACKGROUNDFETCH=YES;EXCLUSIVE=YES"
    Conn.ConnectionString = "Provider=vfpoledb.1;Data Source=" & path & ";Collating Sequence=machine;"
    Conn.CursorLocation = adUseClient
    Conn.Mode = adModeRead
    Conn.Open
    
    Dim i As Long
    Dim j As Long

    Dim rs As ADODB.Recordset
    Set rs = dbConn.Execute("select * from most")
                
    Dim fld As ADODB.Field
    i = 2
    Do While Not rs.EOF
        j = 1
        For Each fld In rs.Fields
            newSheet.Cells(i, j).value = fld.value
            j = j + 1
        Next fld
        i = i + 1
        rs.MoveNext
    Loop
    dbConn.Close    
End Sub

If IsNull(fld.value) then 'или If len(trim(fld.value)) = 0 then
newSheet.Cells(i, j).value = NULL 'Или Empty, тогда ячейка будет пустой
Else
newSheet.Cells(i, j).value = fld.value
End if

Dim Conn As ADODB.Connection
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=dBase 5.0;" 

Dim ColumnsSchema As ADODB.Recordset
Set ColumnsSchema = "Conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, tableName, Empty))" . 

Dim Conn As ADODB.Connection
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=vfpoledb.1;Data Source=" & path & ";Collating Sequence=machine;"