'Visual Basic Online Course - Run-time error '3021' 
'http://www.evry1.net/VB6/

'E.g: Moving to next record
'Make sure your table is not empty
If RS.RecordCount = 0 Then Exit Sub
'Make sure the Absolute Position of the record's cursor is at 
'the right position, If not then Exit Sub
'If the Absolute Position reached the last record then Exit Sub.
If RS.AbsolutePosition = Val(RS.RecordCount) Then 
Exit Sub
End If
'Navigate [MoveNext]
RS_.MoveNext
Text1.Text = RS!FieldName1
Text2.Text = RS!FieldName2