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中的数据也就没有了。

希望高人指点！