vb中用dbgrid显示记录的问题

Question

Dim rs_CheckClassData As rdoResultset
Set rs_CheckClassData = DS.CheckClassRpt(ClassBegin, ClassNo) //存储过程
Set MSRDC1.Resultset = rs_CheckClassData
然后窗口上的dbgrid控件的数据源连接在MSRDC1 上。问题：
    存储过程有数据返回，但是在dbgrid中，不显示,但是单击打印后，再返回，dbgrid
又可以正常显示了。打印页上有莫名其妙的东西，如设计时的field1,field2等，和查询出来的记录一同显示.关掉打印，再打印，打印页上正常显示，没有设计时的field1等，
但是一条记录也没有了？？？？？？？？？？？Private Sub Command2_Click()
'打印
Dim Rp As New rptCheckClass
Set Rp.RDODataControl1.Resultset = Nothing '----------------
Set Rp.RDODataControl1.Resultset = rs_CheckClassData  //上面的结果集
Rp.Show
End Sub

Answer 1

问题已经解决，就是安装了sp5补丁。
顺便问一下。在vb里，如何声明findwindow(user32.lib)函数，vb里有handle类型的变量吗，

Answer 2

handle一般为0
声明findwindow()函数
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long