Загрузка с сервера VBA

[nikolaynn2008]

Всем привет,
подскажите пожалуйста что не так в коде!?

делаю загрузку с сервера...пишет ошибку "Не возможно присвоить значение объекту"

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("Xpert", dbOpenDynaset, dbSeeChanges)
   
   If Not rs.EOF Then rs.MoveFirst
   Do Until rs.EOF
   Me.txtBAR_CODE = rs!BAR_CODE
   Me.txtLM_CODE = rs!LM_CODE
   Me.txtCAPTION = rs!CAPTION
   Me.txtFACING = rs!FACING
   Me.txtPRICE = rs!PRICE
   Me.txtSTATUS = rs!STATUS
     
     rs.MoveNext
   Loop

End Sub

[Aleksandr H.]

txtBarCode чё за зверь? Если label то свойство .Caption, если поле, то .Value или .Text

p.s.
Название темы не соответствует вопросу

[nikolaynn2008]

Название темы не соответствует вопросу

Согласен...не правильно написал...
Создал другую... Do while loop с условием отбора VBA