Сравнения значений столбца с полем формы - VBA

Формулировка задачи:

Имеется столбец с ID неких объектов, также имеется форма с полем добавления новых значений для этого столбца. Необходима проверка на совпадение введенного значения в поле на форме со значениями в столбце ID. И сразу интересно следующее, возможно ли считать значения столбца и занести их в массив, а затем работать с тем массивом в цикле?

Решение задачи: «Сравнения значений столбца с полем формы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Кнопка1_Click()
For i = 0 To count(Поле.[Код])
If Поле2 = командасчитываниязначениястроки(i) Then
error_qn = 1
End If
Next i
If error_qn = 1 Then
msgbox "Тест с данным номером уже существует, введите другой номер"
Else
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("ГЏГ°ГҐГЇГ®Г¤Г*ГўГ*ГІГҐГ«Гј", dbOpenDynaset) ' Г‚ Г±Г«ГіГ·Г*ГҐ Г¤Г®ГЎГ*ГўГ«ГҐГ*ГЁГї ГЇГ°ГҐГЇГ®Г¤Г*ГўГ*ГІГҐГ«Гї
rs.AddNew
rs!ГЏГ°ГҐГЇГ®Г¤Г*ГўГ*ГІГҐГ«Гј = Me!ГЏГ®Г«ГҐ6
rs.Update
rs.Close
Set rs = Nothing
Set rs = CurrentDb.OpenRecordset("Г’ГҐГ±ГІ", dbOpenDynaset) ' Г‚ Г±Г«ГіГ·Г*ГҐ ГўГ»ГЎГ®Г°Г* ГЁГ§ ГЁГ¬ГҐГѕГ№ГЁГµГ±Гї Г¤Г*Г*Г*Г»Гµ
rs.AddNew
rs!ГЉГ®Г¤ = Me!ГЏГ®Г«ГҐ2
rs!ГЌГ*Г§ГўГ*Г*ГЁГҐ = Me!ГЏГ®Г«ГҐ4
rs!Г‘Г®Г§Г¤Г*ГІГҐГ«Гј = Me!ГЏГ®Г«ГҐ6
rs!Г„ГЁГ±Г¶ГЁГЇГ«ГЁГ*Г* = Me!ГЏГ®Г«ГҐ8
rs.Update
rs.Close
Set rs = Nothing
On Error GoTo 0
End If
End Sub