为什么后面的Recorset会冲掉前面的Recorset

Private Sub Form_Load()    Call SQL_CN(1, "")
      
    Dim rs1 As ADODB.Recordset, rs2 As ADODB.Recordset
    
    Set rs1 = SQL_SHOW(1, "select * from cfzh")
    Set DataGrid1.DataSource = rs1
    
    
    Set rs2 = SQL_SHOW(1, "select * from doctable")
    Set DataGrid2.DataSource = rs2
    
End Sub窗提上有两个DataGrid
函数SQL_SHOW查询数据并返回一个Recordset
为什么DataGrid1不显数据,示只有DataGrid2显示数据