تابع GotoRecord

Private Function GoToRecord(ByVal rs As ADODB.Recordset, _
                            intRecordNum As Integer) As Recordset
Dim intCount As Integer
    If rs.RecordCount > 0 Then rs.MoveFirst
        For intCount = 1 To intRecordNum - 1
            If Not rs.EOF Then
                rs.MoveNext
            Else
                Exit For
            End If
        Next intCount
Set GoToRecord = rs
End Function

توضیح تابع : این تابع یک Recordset  پر و یک عدد دریافت میکند و در رکورد ست دریافتی رکورد شماره ورودی را فعال میکند .

به عبارت دیگر به رکورد شماره مورد نظر پرش میکند و اگر عدد بزرگتر از تعداد رکورد داخل رکوردست بود آخرین رکورد فعال میشود.