[VB6] Eof & Bof

[Incantatore]

Per favore mi commentate queste righe:

Sub NavigaRecord(record As Naviga)

    If record = Naviga.Frec Then

        If Not rs.EOF Or Not rs.BOF Then rs.MoveFirst

    End If

    If record = Naviga.Nrec Then

        If rs.EOF = False Then rs.MoveNext

        If rs.EOF = True And rs.BOF = False Then rs.MoveLast

    End If

    If record = Naviga.Prec Then

        If rs.BOF = False Then rs.MovePrevious

        If rs.BOF = True And rs.EOF = False Then rs.MoveFirst

    End If

    If record = Naviga.Lrec Then

        If Not rs.EOF Or Not rs.BOF Then rs.MoveLast

    End If

    If Not rs.EOF And Not rs.BOF Then

        txtCodice = rs.Fields("codice")

        txtDescr = rs.Fields("descr")

    End If

ci sono vari if ogni if fa un controllo diverso ma nn ho capito bene cosa!

gentilmente me le commentate

grazie mille!