Sub RstToArray()
    Dim rst As DAO.recordset
    Dim avarData As Variant
    Dim intI As Integer
    
    Set rst = CurrentDb.OpenRecordset( _
      "SELECT * FROM tblCustomers", dbOpenSnapshot)
    
    rst.MoveLast
    rst.MoveFirst
    
    avarData = rst.GetRows(rst.RecordCount)
    
    For intI =  0  To UBound(avarData,  2 )
        If avarData( 1 , intI) = "Smith" Then _
          Debug.Print "Запись найдена в позиции"; intI
    Next intI
End Sub

Sub X()
    Dim avarItems( 1  To  10 ) As Variant
    Dim col As New Collection
    Dim intI As Integer
    
    Randomize
    
    Debug.Print "Исходные данные:"
    
    On Error Resume Next
    
    For intI =  1  To  10 
        avarItems(intI) = Int(( 10  * Rnd) +  1 )
        Debug.Print avarItems(intI)
        col.Add avarItems(intI), CStr(avarItems(intI))
    Next intI
    
    Debug.Print "Уникальные записи:"
    
    For intI =  1  To col.Count
        Debug.Print col.Item(intI)
    Next intI
End Sub

Sub Y()
    Dim avarItems( 1  To  10 ) As Variant
    Dim avarItemsTemp( 1  To  10 ) As Variant
    Dim intI As Integer
    Dim intJ As Integer
    Dim intIdx As Integer
    Dim bln As Boolean
    
    Randomize
    
    intIdx =  1 
    
    Debug.Print "Исходные данные:"
    
    For intI =  1  To  10 
        avarItems(intI) = Int(( 10  * Rnd) +  1 )
        Debug.Print avarItems(intI)
    Next intI
    
    Debug.Print "Уникальные записи:"
    
    For intI =  1  To  10 
        For intJ =  1  To  10 
            If avarItems(intI) = avarItemsTemp(intJ) Then
                bln = True
                Exit For
            End If
        Next intJ
        If Not bln Then
            avarItemsTemp(intIdx) = avarItems(intI)
            Debug.Print avarItemsTemp(intIdx)
            intIdx = intIdx +  1 
        Else
            bln = False
        End If
    Next intI
End Sub