datagrid中的内容一显示就没有了，不知道如何处理，请教高人啊

源程序的代码是这样的：

Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
   
    cnn.ConnectionString = "provider=msdaora;user id= sss;password=sss;data source=sss"
    cnn.Open
        If cnn.State = adStateOpen Then

           Set rs.ActiveConnection = cnn
            rs.CursorLocation = adUseClient
            rs.CursorType = adOpenStatic
            Dim sql_state As String
            sql_state = "select * from table1 where latn_id = 543 and calling_number= '1234567'"
            rs.Open sql_state              
           Set DataGrid1.DataSource = rs

           End If
    cnn.Close
End Sub 

执行上面的程序，检查代码有很多次，从网上搜索资料，也没有发现我这次遇到的问题，请指点一下！

意外的收获：如果在Set DataGrid1.DataSource = rs 后面随便加上一个命令，那么datagrid中就会存在数据了。

例如：msgbox rS.RECORDCOUNT 就会在datagrid中显示出你想要显示的数据，如果你点击了确定后，那么相应的datagrid中的数据也就没有了。

希望高人指点！