Next for For compile error

Question

Я новичок в VBA и работаю над проектом, в котором будут отображаться все текущие пользователи, у которых есть определенный файл open (MS Access). Я пытаюсь заполнить список с информацией о имени компьютера, но получаю сообщение об ошибке, когда пытаюсь запустить кнопку command.rs.Fields (0), это единственное поле, которое мне нужно, так как это имя компьютера. Мне просто нужен список всех имен компьютеров.

Sub ShowUserRosterMultipleUsers() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 

    Set cn = CurrentProject.Connection 

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}" 

    'While Not rs.EOF 
     'Debug.Print rs.Fields(0), rs.Fields(1), _ 
     'rs.Fields(2), rs.Fields(3) 
     'rs.MoveNext 
    'Wend 

    Do While Not rs.EOF 
     With List73 
      .AddItem rs.Fields(0) 
     End With 
    Next 
End Sub 

Answer 1

Sub ShowUserRosterMultipleUsers() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 

    Set cn = CurrentProject.Connection 

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}" 

    'While Not rs.EOF 
     'Debug.Print rs.Fields(0), rs.Fields(1), _ 
     'rs.Fields(2), rs.Fields(3) 
     'rs.MoveNext 
    'Wend 

    Do While Not rs.EOF 
     With List73 
      .AddItem rs.Fields(0) 
     End With 
    Loop 
End Sub