Private Sub ado_book_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
ado_book.Caption = " 当前书籍： " + Str(ado_book.Recordset.AbsolutePosition) + "/" + Str(ado_book.Recordset.RecordCount)
End Sub

报错 如图


其中：ado_book 为 ADODB 的NAME改为Ado_book


请大家帮忙

我如何改才能解决这个问题谢谢！！！

怎么没人回答？