我是新手，用VB编的如何快速按时间段查询sqlserver数据库

我是新手，用VB6编的如何按时间段快速查询sqlserver数据库，现在5000多行，要用时9秒，恳请大家帮我修改。在此谢谢了。Private Sub Command2_Click() '按时间段查询
Image7.Picture = MDIF1.Image2.Picture
Image8.Picture = MDIF1.Image1.Picture
Image9.Picture = MDIF1.Image1.Picture
Image10.Picture = MDIF1.Image1.Picture
Image3.Picture = MDIF1.Image1.Picture
Image6.Picture = MDIF1.Image1.Picture
Image23.Picture = MDIF1.Image1.Picture
Image24.Picture = MDIF1.Image1.Picture
ListView1.Visible = True
ListView2.Visible = False
Picture1.Visible = False
Label34.Visible = True
Label10.Visible = False
no.Visible = True
ok.Visible = True
Command1.Visible = False
Command3.Visible = False
Picture1.Visible = False
If DTPicker1 > DTPicker2 Then
      MsgBox "起始日期不能超过结束日期！", 48, "系统提示"
   Exit Sub
   End If
  ListView1.ListItems.Clear
    Call OpenCNN
    Rst.CursorLocation = adUseClient
    CursorLocation = 2
   If Len(Combo1.Text) = 0 And Len(Combo2.Text) = 0 Then
Rst.Open "SELECT 商品表.供应商id, 检验单.ID,检验单.厂家批次,检验单.供应商属性, 检验单.送货单号, 检验单.检验人员,商品表.物料名称,检验单.ROHS测试批,检验单.ROHS不合格批,检验单.免检批,检验单.不测试批,检验单.进仓批,检验单.不合格批,检验单.退货批,检验单.回用批,检验单.反馈批,检验单.级别,检验单.检验结果,检验单.ROHS结论,检验单.ROHS属性,检验单.不合格处理,检验单.不合格数, 检验单.不合格内容,商品表.物料编码, 商品表.型号规格, 供应商表.供应商名称, 商品表.类别名称, 检验单.数量, 检验单.送货日期 FROM (商品表 INNER JOIN 检验单 ON 商品表.供应商id = 检验单.物料名称) INNER JOIN 供应商表 ON 检验单.供应商名称 = 供应商表.id  WHERE 检验单.送货日期 >= '" & Trim(Me.DTPicker1) & "' and 检验单.送货日期 <= '" & Trim(Me.DTPicker2) & "'", CNN, adOpenStatic, adLockOptimistic
    End If
    On Error Resume Next
    Rst.CursorLocation = adUseClient '避免RecordCount=-1
        ProgressBar1.Max = Rst.RecordCount
      For i = 1 To Rst.RecordCount - 1 ' 循环所有列
         Set LV1 = ListView1.ListItems.Add
              LV1.Text = Rst.Fields("id")
     LV1.SubItems(1) = Rst.Fields("送货日期")
     LV1.SubItems(2) = Rst.Fields("送货单号")
     LV1.SubItems(3) = Rst.Fields("级别")
     LV1.SubItems(4) = Rst.Fields("数量")
     LV1.SubItems(5) = Rst.Fields("不合格数")
     LV1.SubItems(6) = LV1.SubItems(4) - LV1.SubItems(5)
     LV1.SubItems(7) = Rst.Fields("检验结果")
     LV1.SubItems(8) = Rst.Fields("ROHS结论")
     LV1.SubItems(9) = Rst.Fields("ROHS属性")
     LV1.SubItems(10) = Rst.Fields("不合格处理")
     LV1.SubItems(11) = Rst.Fields("不合格内容")
     LV1.SubItems(12) = Rst.Fields("供应商名称")
     LV1.SubItems(13) = Rst.Fields("物料编码")
     LV1.SubItems(14) = Rst.Fields("物料名称")
     LV1.SubItems(15) = Rst.Fields("型号规格")
     LV1.SubItems(16) = Rst.Fields("人员")
     LV1.SubItems(17) = Rst.Fields("类别名称")
     LV1.SubItems(18) = Format(Rst.Fields("进仓批"), "0")
     LV1.SubItems(19) = Format(Rst.Fields("不合格批"), "0")
     LV1.SubItems(20) = Format(Rst.Fields("退货批"), "0")
     LV1.SubItems(21) = Format(Rst.Fields("回用批"), "0")
     LV1.SubItems(22) = Format(Rst.Fields("反馈批"), "0")
     LV1.SubItems(23) = Format(Rst.Fields("ROHS测试批"), "0")
     LV1.SubItems(24) = Format(Rst.Fields("ROHS不合格批"), "0")
     LV1.SubItems(25) = Format(Rst.Fields("免检批"), "0")
     LV1.SubItems(26) = Format(Rst.Fields("不测试批"), "0")
     LV1.SubItems(27) = Format(Rst.Fields("IQC合格率"), "0.00")
     LV1.SubItems(28) = Format(Rst.Fields("回用率"), "0.00")
     LV1.SubItems(29) = Format(Rst.Fields("ROHS合格率"), "0.00")
     LV1.SubItems(31) = Rst.Fields("检验人员")
      LV1.SubItems(32) = Format(Rst.Fields("厂家批次"), "0")
      LV1.SubItems(33) = Rst.Fields("供应商属性")
     If LV1.SubItems(9) = True Then LV1.SubItems(9) = "ROHS" Else: LV1.SubItems(9) = "非ROHS"
     If LV1.SubItems(32) = "1" Then LV1.SubItems(32) = "1" Else: LV1.SubItems(32) = "0"
     If LV1.SubItems(33) = True Then LV1.SubItems(33) = "用于3C产品" Else: LV1.SubItems(33) = "非3C"
     LV1.SmallIcon = 1
     ProgressBar1.Value = i
     Rst.MoveNext
          Next
 '     For i = 1 To Rst.RecordCount - 1 ' 循环所有列
     ProgressBar1.Value = 0
   '  Next
     CNN.Close