DataGrid 不显示数据问题。

Question

Private Sub Form_Load()
    
    Dim CN As New ADODB.Connection
    Dim strCN As String
    
    strCN = "Driver={SQL Server};server=(local);database=Northwind;uid=sa;pwd="
    
    CN.CursorLocation = adUseClient
    CN.Open strCN    Dim strSQL As String
    
    strSQL = "Select 档案序号,姓名 From page"    Dim Rs As New ADODB.Recordset
    
    Rs.Open strSQL, CN, adOpenKeyset, adLockOptimistic    Set DataGrid1.DataSource = Rs
    DataGrid1.Refresh    Rs.Close
    Set Rs = Nothing
    CN.Close
    Set CN = Nothing
    
End Sub
运行后，DataGrid 像是没做过任何改动一样，只显示两行空白行
查了N多帖子，没有一点头绪。有请高人相助

Answer 1

LZ做个试验就明白了，
   Dim CN As New ADODB.Connection
    Dim Rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    Dim strCN As String
    
    strCN = "Driver={SQL Server};server=(local);database=Northwind;uid=sa;pwd="
    
    CN.CursorLocation = adUseClient
    CN.Open strCN    Dim strSQL As String
    
    strSQL = "Select * From T2"    
    Rs.Open strSQL, CN, adOpenKeyset, adLockOptimistic    Set DataGrid1.DataSource = Rs
    DataGrid1.Refresh
End SubPrivate Sub Command2_Click()
    Rs.Close
    Set Rs = Nothing
    CN.Close
    Set CN = NothingEnd Sub

Answer 2

在执行
    Rs.Close
    Set Rs = Nothing
    CN.Close
    Set CN = Nothing
    
时又将数据清除了

Answer 3

LZ做个试验就明白了， 
  Dim CN As New ADODB.Connection 
    Dim Rs As New ADODB.Recordset Private Sub Command1_Click() 
    Dim strCN As String 
    
    strCN = "Driver={SQL Server};server=(local);database=Northwind;uid=sa;pwd=" 
    
    CN.CursorLocation = adUseClient 
    CN.Open strCN     Dim strSQL As String 
    
    strSQL = "Select 档案序号,姓名 From page"
    
    Rs.Open strSQL, CN, adOpenKeyset, adLockOptimistic     Set DataGrid1.DataSource = Rs 
    DataGrid1.Refresh 
End Sub Private Sub Command2_Click() 
    Rs.Close 
    Set Rs = Nothing 
    CN.Close 
    Set CN = Nothing End Sub 

Answer 4

不要采取这种绑定的办法
Set DataGrid1.DataSource = Rs付值
    With DataGrid1
        .Row = 2
        .Col = 3
        .Text = Rs.Fields(1)
    End With