como añadir items a un cuadro de lista por codigo

[Laufwerk]

Dentro del mismo formulario me sale,pero como tngo este codigo, no m o acaba de aceptar

Código:

Private Sub cmdLogin_Click()
On Error GoTo Err_cmdLogin_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Call configuracionInicial(Me.username.Value, Me.password.Value)
    
    If Nz(Me.username.Value, "") <> "" And Nz(Me.password.Value, "") <> "" Then
        Set rsUsuarios = CurrentDb.OpenRecordset("Select username,password,conectado,horaConexion,ultimoAcceso from USUARIOS where username='" & Me.username & "' AND password='" & Me.password & "'")
        If rsUsuarios.RecordCount = 0 Then
            MsgBox "Los datos introducidos son incorrectos, por favor, revísalos", vbInformation, titleMsgbox
        Else
            'Usuario y contraseña correcto
            'Cerramos el formulario login
                'If Me.Dirty Then Me.Dirty = False
                DoCmd.Close

            'Abrimos el formulario Main
                stDocName = "Frm_Main"
                DoCmd.OpenForm stDocName, , , stLinkCriteria

            'Añadimos a la base de datos la fecha completa de conexion y conectado
                Call Conectar
            'Poner como conectado en el formulario principal
                'Call conectado
                Frm_Main.lstConectados.AddItem (rsUsuarios!username)
        End If
        rsUsuarios.Close
        Set rsUsuarios = Nothing
    End If

Exit_cmdLogin_Click:
    Exit Sub

Err_cmdLogin_Click:
    MsgBox Err.Description
    Resume Exit_cmdLogin_Click
End Sub

La linea marcada en rojo no me dice que requiere un objeto..

Después para quitar un item de la lista, me pide el index. Cómo puedo saber el index para cada usuario?

otra cosa:
En el evento key_Press en mi textbox password quisiera que cuando se presione enter me vaya a la funcion on click del boton Login, es posible?

otra cosa 2:
Como es que los formularios que contienen id's de otras tablas no me pone su respectivo valor?