客户事件调用了一个提供程序的非重入方法

在定义了一个ADODB.Recordset之后打开都是正常的
Dim rstrkmx As New ADODB.Recordset
rstrkmx.Open "select * from 入库明细表 l,品名库表 p,供货商表 g where l.品名编号=p.品名编号 and l.供货商编号=g.供货商编号", cnn, adOpenKeyset, adLockReadOnly
Set DataGrid1.DataSource = rstrkmxrstrkmx.Resync
DataGrid1.ReBind
DataGrid1.Refresh
而在执行到rstrkmx.Resync时就会出现提示“客户事件调用了一个提供程序的非重入方法”，要按N个确定，但不影响最后执行的结果。
请各位帮忙看看是什么原因。