Do while loop с условием отбора VBA

[nikolaynn2008]

Всем привет....подскажите пожалуйста
Использую ниже указанный код, который предполагал что поля CAPTION, LM_CODE буду равные полю Штрих-код...
Нооо...по чему то он у меня обрабатывает только первое поле, и все остальные поля равны первому((((
В этом вы можете убедиться взглянув на вложенное фото...

Что не так с кодом???

Private Sub Form_Load()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim conn As String
 
   
   
   conn = "Driver={SQL Server Native Client 11.0};Server=DESKTOP-7QOTD1S;Database=master;Uid=MyVegas123;Pwd=dtufc123;"
   
   Set db = OpenDatabase("", False, False, conn)
   Set rs = db.OpenRecordset("SELECT * FROM Xpert WHERE Xpert.BAR_CODE = '" & Me.Штрих_код & "' ", dbOpenDynaset, dbSeeChanges)
 
   
   If Not (rs.EOF And rs.BOF) Then
 
    Do Until rs.EOF = True
        Me.txtCAPTION = rs!CAPTION
        Me.txtLM_CODE = rs!LM_CODE
   
      
       rs.MoveNext
    
       Loop
    End If
 
    Set rs = Nothing
    Set db = Nothing
 
   
End Sub

[Aleksandr H.]

Почему бы не заполнять эти поля так же как и "Адрес" и "Штрих-код"?

[nikolaynn2008]

Сообщение от Aleksandr H.

Почему бы не заполнять эти поля так же как и "Адрес" и "Штрих-код"?

С удовольствием...но поля CAPTION и LM_CODE с таблицы которая берется из другого источника...