Importing A Sheet From A Excel Spreadsheet

Hi

I'm trying to import a sheet from a excel spreadsheet.

this is my "code"

The problem is that when i hit the run button, it imports blank sheets or more likely is not importing at all :confused: :(

On Error GoTo ErrorTrap
Dim dlgOpen2 As FileDialog
Dim countrystring2 As String

Set dlgOpen2 = Application.FileDialog(msoFileDialogFilePicker)

With dlgOpen2


If txtFile2 <> "" Then
.InitialFileName = txtFile2
countrystring2 = txtFile2 & "!RB_UPDATES"
Else
.InitialFileName = CurrentProject.Path
End If
.AllowMultiSelect = False
.Show
End With
If dlgOpen2.SelectedItems.Count <> 0 Then
txtFile2 = dlgOpen2.SelectedItems(1)
End If
Exit Sub

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "RB_UPDATES", countrystring2, True

ErrorTrap:
MsgBox Err.Description, vbExclamation + vbOKOnly
End Sub