datagrid中怎么显示不出rs的内容啊？

Question

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public str As String
Private Sub Form_Load()
  str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\testdata.mdb;"
  cn.Open conn
  rs.CursorLocation = adUseClient
  rs.Open "select * from 表1", str, adOpenKeyset, adLockPessimistic
  Set DataGrid1.DataSource = rs
  DataGrid1.Refresh
  cn.Close
End Sub
经测试rs里面已查询到内容，我的datagrid表是制定了外观的，也就是把标题编辑上去了的，这段程序要是在原始没编辑的datagrid上运行就没问题，怎么能让它编辑了外观也可以显示数据呢？

Answer 1

Public   cn   As   New   ADODB.Connection 
Public   rs   As   New   ADODB.Recordset 
Public   str   As   String 
Private   Sub   Form_Load() 
    dim conn as string
    conn   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\testdata.mdb;" 
    cn.Open   conn 
    rs.CursorLocation   =   adUseClient 
    rs.Open   "select   *   from   表1",   cn,   adOpenKeyset,   adLockPessimistic 
    Set   DataGrid1.DataSource   =   rs 
    DataGrid1.Refresh 
    cn.Close 
End   Sub 

Answer 2

Public   cn   As   New   ADODB.Connection 
Public   rs   As   New   ADODB.Recordset 
Private   Sub   Form_Load() 
    cn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\testdata.mdb;" 
    rs.CursorLocation   =   adUseClient 
    rs.Open   "表名",   cn,   adOpenKeyset,   adLockPessimistic 
    Set   DataGrid1.DataSource   =   rs 
    DataGrid1.Refresh 
    cn.Close 
    set cn=Nothing
End   Sub 
经测试rs里