For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
Next
For j = 1 To myPageSize
For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
Adodc1.Recordset.MoveNext
Next
Next
For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
Next
For j = 1 To myPageSize
For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
Adodc1.Recordset.MoveNext
Next
Next
Adodc1.Recordset.AbsolutePage = cur_Page
End Sub
Private Sub Form_Load()
On Error Resume Next
myPageSize = 4
For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
Next
For j = 1 To myPageSize
For i = 0 To Adodc1.Recordset.Fields.Count - 1
MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
Adodc1.Recordset.MoveNext
Next
Next