Dim strAns
Dim rndRec
Dim rndFld
Dim CntRec
Dim CntFld
Dim arRec()
Dim arFld()
Dim x, y
rndRec = (Rnd \ 1) + 2
rndFld = (Rnd \ 1) + 2
ReDim arRec(rndRec)
ReDim arFld(rndFld)
For x = 1 To rndRec
arRec(x - 1) = CntRec * Rnd \ 1
For y = 0 To x
If arRec(x - 1) = arRec(y) Then arRec(x - 1) = CntRec * Rnd \ 1
Next
Next
For x = 1 To rndFld
arFld(x - 1) = CntFld * Rnd \ 1
For y = 0 To x
If arFld(x - 1) = arFld(y) Then arFld(x - 1) = CntFld * Rnd \ 1
Next
Next
strAns = ""
For x = 0 To rndRec - 1
Rs.MoveFirst
Do While Not Rs.EOF
If Rs.AbsolutePosition = arRec(x) Then
strAns = strAns & "Record No : " & Rs.AbsolutePosition & vbCrLf
For y = 0 To rndFld - 1
strAns = strAns & " Field No : " & arFld(y) & " Field Name : " & Rs(arFld(y)).NAME & " Field Value : " & Rs(arFld(y)) & vbCrLf
Next
End If
Rs.MoveNext
Loop
Next
Rs.CLOSE
Load balance : Server 05
