Problem with MailMerge (Excel Macro)

[eagl3red]

I have a Excel Macro:

Sub MailMergeFromExcel
...
Set W_app = CreateObject("Word.Application")
Set W_doc2 = W_app.Documents.Add
With W_app
Source = "D:\DOCS\EXCEL\data.xls"
W_doc2.Activate
W_doc2.Select
.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
.ActiveDocument.MailMerge.OpenDataSource Name:=Source _
, ConfirmConversions:=False, ReadOnly:=True, LinkToSource:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="DATOS_CONTRIB", _
SQLStatement:="", SQLStatement1:=""
....
End With
...
End sub

The problem of Excel Macro is in the sentence "...OpenDataSource..." it's very slow, and sometimes show me a Message: "Microsoft Excel is waiting for another application complete an action OLE" (but before Excel try to open PERSONAL.XLS and I click "Read Only").

I try with this code:

W_doc2.MailMerge.OpenDataSource Name:=Source _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=Source;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet" _
, SQLStatement:="SELECT * FROM [Sheet1$]", SQLStatement1:=""

But didn't work

Please, help me.