[vb6.0] كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين

كود :
[php]

Private Sub Command1_Click()

    Dim i As Integer

    

    '' نقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة

    Set rs = db.OpenRecordset("SELECT DISTINCT Account_Number FROM sam2", 2)

        If rs.RecordCount > 0 Then

            rs.MoveLast

            rs.MoveFirst

            ReDim AccountNumbers(rs.RecordCount - 1)

            For i = 0 To rs.RecordCount - 1

                 AccountNumbers(i) = rs.Fields("Account_Number")

                 rs.MoveNext

            Next i

        End If

    rs.Close

    

    '' نعمل حلقة تكرار تمر على جميع عناصر المصفوفة التي تحتوي على أرقام الحسابات

    For i = 0 To UBound(AccountNumbers)

        ActiveReport1.DAODataControl1.DatabaseName = App.Path & "\db1.mdb"

        ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & ",Date" & ",Account_Number" & ",Deposit" & ",Clouds" & ",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=" & AccountNumbers(i) & " AND Tbl.Operation<=Tbn.Operation) as Balance" & " From sam2 as Tbn Where Account_Number=" & AccountNumbers(i) & " Order By Date,Operation ASC"

        ActiveReport1.PrintReport False

        Set ActiveReport1 = Nothing '' إغلاق الكائن

    Next i

    

End Sub