为什么一点击datagrid的标题，数据就全没了（数据是从数据库中查出的）

Question

代码：  Dim strProductsID  '产品ID
  Dim strProductsNO  '序列号
  Dim strQuery       '查询语句，查询条件为：1.以产品ID 2.以产品ID 和序列号
                                    
  
  strProductsID = Trim(txtProductsID.Text)
  strProductsNO = Trim(txtProductsNO.Text)
  
  '判断产品ID是否为空，若为空，则要求输入，并退出itemExit_Click
  If strProductsID = "" Then
     MsgBox "请输入产品ID！"
     Exit Sub
  Else
     strQuery = "select * from products,productsDescription where products.vBarCode=productsDescription.vBarCode and productsDescription.vBarCode='" & txtProductsID & "'"
  End If
  '判断产品ID和序列号是否同时为空，若为空则要求从新输入，并退出itemExit_Click
  If strProductsID <> "" And strProductsNO <> "" Then
    strQuery = "select * from products,productsDescription where products.vBarCode=productsDescription.vBarCode and productsDescription.vBarCode='" & txtProductsID & "'and vSerialNO ='" & strProductsNO & "'"
  End If
  
  
   Dim conYueChi As ADODB.Connection
   Dim rstYueChi As ADODB.Recordset   Set conYueChi = New ADODB.Connection
   Set rstYueChi = New ADODB.Recordset   With conYueChi
      .ConnectionString = "Persist Security Info=False;Data Source=yuechi"
      .Provider = "MSDASQL.1"
      .Open
   End With
   
   rstYueChi.CursorLocation = adUseClient
   ' 如果RecordSet的狀態不是關閉狀態,則關閉Recordset
   If rstYueChi.State <> adStateClosed Then rstYueChi.Close
 
   rstYueChi.Open strQuery, conYueChi, adOpenDynamic, adLockOptimistic
  
    '检查结果集是否为空，若为空则提示错误信息
    If rstYueChi.EOF Then
       MsgBox "没有所需记录！"
        Exit Sub
    End If
  
   DataGrid1.Columns(4).Width = 500
   DataGrid1.Columns(5).Width = 1000
   Set DataGrid1.DataSource = rstYueChi '帮定数据源
   DataGrid1.Refresh
     rstYueChi.Close
   conYueChi.Close

Answer 1

没有出现任何错误提示？
datagrid的背景色设置为白色了？

Answer 2

你给的代码没事件，不全，个人猜测，你把recordset给关闭了，把你最后那2句话去掉再看看。

Answer 3

数据关闭了吧.看看代码中的问题:
Set DataGrid1.DataSource = rstYueChi '帮定数据源
rstYueChi.Close