Private Sub Command3_Click()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim ert As String
    Dim Str As String
    Dim i As Long
    Dim code As String
    Dim Sum As String, Sum1 As String
    Dim Rep As String
    Dim sMsg As String
    
    dlg1.Filter = "All Files (*.*)|*.*"
    dlg1.ShowSave
    sTemp = dlg1.FileName
    myFile = dlg1.FileName
    
    If sTemp = "" Then
    MsgBox "Ничего не выбрано.....", vbInformation
    Exit Sub
    End If
    
       
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;" _
    & "Extended Properties=dBASE IV;"
    rst.Open "SELECT * FROM " & sTemp & "", cnn
    MsgBox rst.RecordCount  ' ПОКАЗЫВАЕТ -1 !!!!
    
 rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub