Помогите с кодом

Понедельник, 26 Февраля 2018 г. 00:36 + в цитатник

Есть куча всего, но вот кусок в котором надо взять из второй таблицы данные соответствующие данным первой таблицы

'Лист программирования
Dim rsLP As Recordset, myLP, S1 As String

Set rsLP = CurrentDb.OpenRecordset("select * from [Оборудование ОВО] where Наименование=" & Me.П_УО)                  ' на эту строку ругается

Do Until rsLP.EOF
        myLP1 = rsLP!Шлейфы
        myLP2 = rsLP!Сопротивление
    rsLP.MoveNext
Loop
П_Проб = "Шлейф-1= " & asl1 & ", Шлейф-2= " & asl2 & ", Шлейф-3= " & asl3 & ", Шлейф-4= " & asl4 & ", Шлейф-5= " & asl5 & ", Шлейф-6= " & asl6 & ", Шлейф-7= " & asl7 & ", Шлейф-8= " & asl8 & ", Шлейфов- " & myLP1 & ", Сопрот- " & myLP2