subscript out of range

[saadatdoost]

من می خواهم دو تا دیتابیس که شامل 28000 ر کورد هستند را با هم مقایسه کنم.
برای این کار هر کدام را داخل flexgrid ریختم اما موقع استفاده از حلقه for این error می ده.
(هر عددی به حلقه می دم بزرگ یا کوچک این error رو می ده)



Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 1 To 6
'For k = 1 To 88
For j = 1 To 6

If MSHFlexGrid1.TextMatrix(i, 2) = MSHFlexGrid2.TextMatrix(j, 2) And MSHFlexGrid1.TextMatrix(i, 3) = MSHFlexGrid2.TextMatrix(j, 3) And MSHFlexGrid1.TextMatrix(i, 6) = MSHFlexGrid2.TextMatrix(j, 6) And MSHFlexGrid1.TextMatrix(i, 8) = MSHFlexGrid2.TextMatrix(j, 8) Then
' MsgBox ("same record")

If MSHFlexGrid1.TextMatrix(i, 21) <> MSHFlexGrid2.TextMatrix(j, 21) Then
If MSHFlexGrid1.TextMatrix(i, 21) = "&Yacute;&aelig;&THORN; &aacute;&iacute;&Oacute;&Ccedil;&auml;&Oacute;" And MSHFlexGrid2.TextMatrix(j, 21) = "&Iuml;˜&Ecirc;&Ntilde;&Ccedil;" Then
Dim n As Integer
n = MSHFlexGrid1.TextMatrix(i, 1)
MsgBox (Str(n))
Dim d As String
d = "UPDATE hyat_data SET degree='&Iuml;˜&Ecirc;&Ntilde;&Ccedil;' where" + Str(n)
Adodc1.RecordSource = d
Adodc1.Refresh
End If

If MSHFlexGrid2.TextMatrix(i, 21) = "&Yacute;&aelig;&THORN; &aacute;&iacute;&Oacute;&Ccedil;&auml;&Oacute;" And MSHFlexGrid1.TextMatrix(j, 21) = "&Iuml;˜&Ecirc;&Ntilde;&Ccedil;" Then

MSHFlexGrid2.TextMatrix(i, 21) = MSHFlexGrid1.TextMatrix(j, 21)
End If
End If

End If
Next
Next

End Sub