with ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "ODBC;DSN=trpvANSI;UID=dbuser;", Destination:=Range("$I$8")).QueryTable
.CommandText = Array("SELECT * FROM dbsklad;")
end with
SourceType:=0, Source:= _ "ODBC;DSN=trpvANSI;UID=dbuser;"