I am trying to create the following path and file name;

C:\Documents and Settings\My Documents\John Jul 04
Info\DATA INPUT." _

Cell B1 = Johnson & Paul


I am using:

Dim sName As String, sDate As String

sName = (Left(Range("B1"), 4))
sDate = "" & Format(DateSerial(Year(Date), Month
(Date) - 1, 1), "mmm yy")


With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\My
Documents\sName & sDate & EOM INFO\DATA INPUT." _

But it can not find the file. What is wrong with the
code?

Thanks for any help