请问VB执行错误“实时错误'9'下标越界”解决方法，谢谢！

自己写的一个程序，总是在执行到“特别标注”那一行的时候正确的记录可以查出，但是却提示
实时错误'9'下标越界，请问如何解决，谢谢！！
Dim cn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cmd As ADODB.Command
Dim c
Dim i As IntegerPrivate Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入单据编号！", vbOKOnly, "金蝶提示"
Else
  Set rs1 = New ADODB.Recordset
  rs1.CursorLocation = adUseClient
  rs1.Properties("Initial Fetch Size") = 2
  rs1.Properties("Background Fetch Size") = 4
  rs1.Open "select t1.FNumber,t2.FBillNo,sum(t4.Quantity) from MDB_SaleDetail t4 INNER JOIN t_ICItemCore t1 ON t1.FHelpCode = t4.GoodsId INNER JOIN MDB_SaleMaster t3 ON t4.MasterId = t3.Id INNER JOIN ICStockBill t2 ON t2.FInterID = t3.SourceId Where t2.FBillNo like  '%" & Text1.Text & "%' Group by t1.FNumber,t2.FBillNo", cn, adOpenStatic, adLockOptimistic, adCmdText
     If rs1.RecordCount > 0 Then
      Set Dgr_ruku.DataSource = rs1
      rs1.Requery
            Dgr_ruku.Refresh
      'Dgr_ruku.Columns(0).Caption = "扫描单号"
      Dgr_ruku.Columns(1).Caption = "物料名称"
      'Dgr_ruku.Columns(2).Caption = "仓位"
      'Dgr_ruku.Columns(3).Caption = "条码信息"
      'Dgr_ruku.Columns(4).Caption = "入库仓库"
 特别标注：Dgr_ruku.Columns(5).Caption = "数量"
      'Dgr_ruku.Columns(6).Caption = "单据状态"
      'Dgr_ruku.Columns(0).Width = 1500
      Dgr_ruku.Columns(1).Width = 3500
     ' Dgr_ruku.Columns(2).Width = 1000
     ' Dgr_ruku.Columns(3).Width = 2000
     ' Dgr_ruku.Columns(4).Width = 3000
      Dgr_ruku.Columns(5).Width = 1000
     ' Dgr_ruku.Columns(6).Width = 1000
      rs1.Close
      End If
      End If
End Sub
Private Sub Form_Load()
 Set cn = New ADODB.Connection
  cn.Open ("Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=AIS20101217083111;User ID=sa;Password=sa;")
 ' Set rs = New ADODB.Recordset
  'Set rs1 = New ADODB.Recordset
 ' rs.CursorLocation = adUseClient
  'rs.Properties("Initial Fetch Size") = 2
  'rs.Properties("Background Fetch Size") = 4
  'rs.Open "SELECT Id FROM MDB_PurchaseMaster order by Id desc", cn, adOpenStatic, adLockOptimistic, adCmdText
   'Do While Not rs.EOF
    'If IsNull(rs.Fields(0).Value) = False Then
     '  cb_ruku.AddItem rs.Fields(0).Value
    'End If
     '   rs.MoveNext
      '  Loop
End Sub