请大家帮我看看这个在excel中的vb语句为什么报错？？
我在excel中放置了一个文本框和按钮，目的是在文本框中输入后，点击按钮能把sql server数据库某个表中的数据提取出来放到excel中，语句如下：
Private Sub CommandButton1_Click()
Dim qt As QueryTable
sqlstring = "select ITEM,ITEM_DESC,UM from ITEMLIST Where ITEM= ' " & TextBox1.Text & " ' order by ITEM "
connstring = "ODBC;DSN=DBMR;UID=sa;PWD=1234;Database=DatabaseMR "
Set qt = Workbooks(1).Worksheets(1).QueryTables(1)
With qt
.Connection = connstring
.Destination = Range( "A1 ")
.CommandType = xlCmdSql
.CommandText = sqlstring
.Refresh BackgroundQuery:=False
End With
End Sub

可是执行时抱错，说下面这个语句有错误：
Set qt = Workbooks(1).Worksheets(1).QueryTables(1)
运行时错误 '9 '，下标越界。

请问如何解决？？？

[解决办法]
Private Sub CommandButton1_Click()
Dim qt As QueryTable
sqlstring = "select ITEM,ITEM_DESC,UM from ITEMLIST Where ITEM= ' " & TextBox1.Text & " ' order by ITEM "
connstring = "ODBC;DSN=DBMR;UID=sa;PWD=1234;Database=DatabaseMR "
Set qt = Workbooks(1).Worksheets(1).QueryTables.Add(connstring, Range( "A1 "), sqlstring)
qt.Refresh BackgroundQuery:=False
End With
End Sub