大家进来看一下吧，我的datagrid怎么没有显示出数据呢？MsgBox rs.RecordCount 里面有结果，但是datagrid没有显示

Question

Public Sub updatedatagrid(ByRef DataGrid1 As datagrid)
    Dim rs As New ADODB.Recordset
    Dim cnn As String
    cn.Open
    DataGrid1.RecordSelectors = False '取消第一列
    DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
    rs.CursorLocation = adUseClient
    cnn = "select * from borrow"
    rs.Open cnn, cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    MsgBox rs.RecordCount    rs.Close
    cn.Close
    
    DataGrid1.Refresh
End Sub

Answer 1

    rs.Close
    cn.Close
    DataGrid1.Refresh
这三句不要