Try this:
' Sets up objects to be used
Set Fso = CreateObject("Scripting.FileSystemObject"

Set CONN = New ADODB.Connection
Set RS = New ADODB.Recordset
' Gets the drive and file names
DriveName = IIf(Right$(Fso.GetDriveName(lblInputFile.Caption), 1) = "\", Fso.GetDriveName(lblInputFile.Caption), Fso.GetDriveName(lblInputFile.Caption) & "\"

FileName = Fso.GetFileName(lblInputFile.Caption)
' Connects to the database
CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DriveName & ";" & _
"Extended Properties=dBASE IV;"
' Populates the recordset
RS.Open "Select * From " & DriveName & FileName, CONN, adOpenDynamic, adLockOptimistic, adCmdText
Swi