tomt felt til Listbox

Jeg har efterhånden fået lavet et fint program via hjælp herinde fra. Det ovf data fra acces til exel via en listbox. Det virker fint, men nogen af felterne i access databasen vil være blanke..der kommer så fejlmed..  er felterne udfyldt kører det bare perfekt... jeg vedlægger lidt af prog.
f Not objRS.EOF Then
  i = 0
  Do While Not objRS.EOF
   
    With objRS
    UserForm1.ListBox1.AddItem objRS("Kundenr")
    UserForm1.ListBox1.List(i, 1) = objRS("Navn1")
    UserForm1.ListBox1.List(i, 2) = objRS("Navn2")
    UserForm1.ListBox1.List(i, 3) = objRS("adresse")
    UserForm1.ListBox1.List(i, 4) = objRS("postby")
       
        i = i + 1
        .MoveNext
      End With
    Loop
    UserForm1.Show

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
For A = 0 To 4
Cells(A + 1, 1) = ListBox1.List(i, A)  '
Next
End If
Next
End Sub