好奇怪的datagrid问题

代码如下
   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
   rstYueChi.Open "select * from products", conYueChi, adOpenDynamic, adLockOptimistic
  
  
  
   Set DataGrid1.DataSource = rstYueChi  
   
   MsgBox rstYueChi!vBarCode  //为什么要加上这行datagrid才能显示数据？否者 只闪一下
  
   
   rstYueChi.Close
   conYueChi.Close