Ошибка в коде. Навигационный способ доступа и реляционный.

[roxy7]

Добрый вечер! На форме расположены ListBox, textbox и commandbutton. Пытаюсь реализовать реляционный способ доступа, но выдает ошибку в коде:

Private Sub CommandButton1_Click()
    Dim con As ADODB.Connection
    Dim rec As ADODB.Recordset
    Dim strSQL As String
    Set con = New ADODB.Connection
    Set rec = New ADODB.Recordset
    con.Open "Provider=Microsoft.Jet.oledb.4.0; data Source=d:\lr12.mdb;"
    strSQL = "select Индекс, Отделение from Индексы where Город='" & _ UCase(TextBox1.Text) & & "'"     'здесь ошибка
    rec.Open strSQL, con
    Do While Not rec.EOF
        UserForm1.ListBox1.AddItem rec.Fields(0) & "-->" & rec.Fields(1)
        rec.MoveNext
    Loop
    If ListBox1.ListCount = 0 Then MsgBox "Неверно введено название города"
    
    rec.Close
    con.Close
    Set rec = Nothing
    Set con = Nothing
End Sub

Ещё вопрос: в чем недостаток навигационного способа доступа по сравнению с реляционным.
Навигационный способ доступа:

Private Sub CommandButton1_Click()
    Dim con As ADODB.Connection
    Dim rec As ADODB.Recordset
    Set con = New ADODB.Connection
    Set rec = New ADODB.Recordset
    con.Open "Provider=Microsoft.Jet.oledb.4.0; data Source=d:\lr12.mdb;"
    rec.Open "индексы", con
    Do While Not rec.EOF
        If UCase(TextBox1.Text) = rec.Fields(2) Then
        UserForm1.ListBox1.AddItem rec.Fields(0) & "-->" & rec.Fields(1)
        End If
        rec.MoveNext
    Loop
   If ListBox1.ListCount = 0 Then MsgBox "Неверно введено название города"
    rec.Close
    con.Close
    Set rec = Nothing
    Set con = Nothing
End Sub

[roxy7]

Файл БД lr12.mdb на диске D:
lr12.zip

[shanemac51]

На форме расположены ListBox, textbox и commandbutton.

а где форма, вижу только таблицу

[roxy7]

Здесь Excel с поддержкой макросов:
Rabota12.zip