Hi Paolo,

See the BackgroundQuery propert in VBA help.

Try changing:

.Refresh

to

.Refresh BackgroundQuery:=False


---
Regards,
Norman



"Paolo9001" wrote in message
...
Hi,
I've a query ...

Connstring =
"ODBC;DSN=simic;ArrayFetchOn=1;ArrayBufferSize=8;D BQ=simic;OpenMode=0;DecimalSymbol=,;ClientVersion= 8.10.117.017;CodePageConvert=1252"

Sqlstring = "SELECT CentriDiProfitto.CodCentroProfitto,
CentriDiProfitto.Descrizione "
Sqlstring = Sqlstring & "FROM CentriDiProfitto "
Sqlstring = Sqlstring & "WHERE (((CentriDiProfitto.Stato)<1)) "

With ActiveSheet.QueryTables.Add(Connection:=Connstring , _
Destination:=Worksheets("Commesse").Range("A1"), Sql:=Sqlstring)
.Refresh
End With

....
....

With Worksheets("Commesse")
.Visible = xlSheetVisible
.Select
.Cells.Copy
End With

With Worksheets("Commesse.tmp")
.Cells.PasteSpecial Paste:=xlPasteValues
.Select
.Range("A1").Select
End With

Worksheets("Commesse").Visible = xlSheetVeryHidden
................................

After the query I copy the cells of "commesse" into "commesse.tmp" and I
hidden the sheet.
But the query has not terminate, and I copy only 1 o 2 row.

How I can wait the end of the query?