Visual Basic - Ayuda con Listbox

hola amigos, necesito ayuda con listbox no funciona asi:

en tabla4 tengo la base de datos:

Private Sub Command5_Click()
If tabla4.RecordCount > 0 Then
tabla4.MoveFirst
Do While Not tabla4.EOF
List1.AddItem tabla4!fcodigo
List1.AddItem tabla4!formapago
tabla4.MoveNext
Loop
End If
End Sub

que puedo hacer, gracias.

Hola.
Si lo que quieres hacer es poner el ListBox con dos columnas prueba con esto.

Private Sub Command1_Click()
Do While Tabla4.EOF = False
List1.AddItem Tabla4![fCodigo] & " " & Tabla4![fPago]
Tabla4.MoveNext
Loop
End Sub

Saludos

gracias miguel me sirvio, gracias nuevamente.

ahora como extraigo esas columnas del listbox, please