vb6 to vb.net conversion exception

is there any way without converting to ADO.Net to check MoveNext(), the following is the
Public Sub WriteOccs(ByRef rstOccsToPrint As ADODB.Recordset, ByRef rstAllOccs As ADODB.Recordset, ByRef rstWageRecordset As ADODB.Recordset, ByRef lblL As System.Windows.Forms.Label, ByRef pbrP As AxComctlLib.AxProgressBar, ByRef cFrmCd As String, ByRef rstIndx As ADODB.Recordset, ByRef rstAlt As ADODB.Recordset)

Dim cAddress As String
Dim nTestCounter, nRecCounter As Short
Dim cCurrentMajor, cCurrentDivision As String
Dim nPointsCounter As Double
Dim cLastPageAddress, cHoldAddress As String
Dim lHaveWeStarted As Boolean
Dim cMajOccFlag As String
Dim cBadMajors As String
Dim cFullDefinition As String
Dim nAltLength As Short
Dim cPrintArea, cLastCol, cLastAddress As String
Dim nLocMax, nLocMin As Short
Dim lPageBreakOK As Boolean
Dim lJustDidDivision As Boolean

nTestCounter = 0
cCurrentMajor = ""
cCurrentDivision = ""
lHaveWeStarted = False
nPageBreakCounter = 0
cPageBreakList = ""
cDivisionPageBreakList = ""
nDivisionPageBreakCounter = 0
With rstOccsToPrint
If .RecordCount > 0 Then

nRecCounter = .RecordCount
Call SetUpProgressBar(pbrP, nLocMax, nLocMin, nRecCounter, lblL, "Writing occupations to form....")

' get the bad major list
'If Right(cFrmCd, 1) <> "0" And Right(cFrmCd, 1) <> "u" Then Call MajorCount(rstOccsToPrint, cBadMajors)

' loop through all the occs
.MoveFirst()
'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
apExcel.ActiveCell.Offset(1, 0).Activate()
nPointsCounter = nSkippedRowHeight
cMajOccFlag = ""
Do Until .EOF

'If !Occ_code = "21-1014" Then Stop
'check for division

'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
cLastPageAddress = apExcel.ActiveCell.Address

If .Fields("division").Value <> cCurrentDivision Then
If lHaveWeStarted Then
If Right(cFrmCd, 1) = "0" Then nPointsCounter = nPointsHigh + 1
'If CheckForPage(cLastPageAddress, apExcel.ActiveCell.Address, nPointsCounter, Right(cFrmCd, 1)) _
'' Then nPointsCounter = 0
Else
lHaveWeStarted = True
End If
Call WriteDivisionHeader(.Fields("division").Value, rstAllOccs)
cCurrentDivision = .Fields("division").Value
lJustDidDivision = True
nPointsCounter = nPointsCounter + nDivisionRowHeight
Else
lJustDidDivision = False
End If

' check for major
' If !Major <> cCurrentMajor Then
' If InStr(cBadMajors, !Major) = 0 Then
' Call WriteMajorHeader(!Major, rstAllOccs, lJustDidDivision)
' nPointsCounter = nPointsCounter + nMajorRowHeight
' End If
' cMajOccFlag = "M"
' cCurrentMajor = !Major
' End If

' now let's build the act