Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
if rs.recordcount>0 then
label1.caption="共用" & rs.recordcount & "筆紀錄"
if rs.bof or rs.eof then
label1.caption=label1,caption & "目前為第" rs.AbsolutePosition & "筆記錄"
endif
end if
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
if rs.recordcount>0 then
label1.caption="共用" & rs.recordcount & "筆紀錄"
if rs.bof or rs.eof then
label1.caption=label1,caption & "目前為第" rs.AbsolutePosition & "筆記錄"
end if
End Sub