Private Sub cmd3_Click()
Dim strPatch As String
Dim i As Integer

On Error GoTo cmd3_Err
    
    With Application.FileDialog(1)
        .Title = "Ïîèñê ôàéëà: *.xls*"
        .InitialFileName = "c:\"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Êíèãè Excel", "*.xls*", 1

        i = .Show
    
        If i = 0 Then
            strPatch = ""
        Else
            strPatch = Trim(.SelectedItems.Item(1))
        End If
    End With

    'MsgBox strPatch, vbInformation
    On Error Resume Next
    DoCmd.DeleteObject acTable, "t_ImportGorod"
    Err.Clear
    DoCmd.TransferSpreadsheet acImport, , "t_ImportGorod", strPatch, True

cmd3_Click_Bye:
    Exit Sub

cmd3_Err:
    MsgBox "Îøèáêà " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "â ïðîöåäóðå: cmd3_Click", vbCritical, "Error!"
    Resume cmd3_Click_Bye
End Sub

CurrentProject.Connection.Execute "ALTER TABLE [t_ImportGorod] ADD COLUMN [ID] COUNTER"