Thanks, peregenem. What I actually need is how to implement the change of
connection. My macro coded as follows:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
tSource="C:\Mar05\File05.xls" 'new
connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & tSource & ";" & _
"Extended Properties=Excel 8.0;" 'to replace old source
file with new
.Open
End With

I'm not sure if this is the right approach because I can't make it work.
Thanks



" wrote:



Jam22171 wrote:
I'm trying to create a macro that will automatically Edit OLE DB Query each
month. The closest help I got was the following:
tSource="C:\Mar05\File05.xls"

Maybe one of

tSource="C:\" & Format$(Date, "mmmyy") & "\File05.xls"
tSource="C:\" & Format$(Date, "mmmyy") & "\File" & Format$(Date, "yy")
& ".xls"
tSource="C:\" & Format$(Date, "mmmyy") & "\File" & Format$(Date, "mm")
& ".xls"