Visual Basic - Problema al Añadir Recorset a un ListBox

hola, tengo la siguiente funcion para añadir los elmentos de una campo de una columna de una tabla de una BD:
Function Lista()
Dim i As Integer


Me.Data2.Recordset.MoveFirst
List1.Clear
List1.AddItem "*"
For i = 0 To Me.Data2.Recordset.RecordCount
If Me.Data2.Recordset.EOF Or Me.Data2.Recordset.BOF Then
Else
If IsNull(Me.Data2.Recordset.Fields("Código")) Or Me.Data2.Recordset.Fields("Código") = "" Then

Else
List1.AddItem (Me.Data2.Recordset.Fields("Código"))
Me.Data2.Recordset.MoveNext
End If
End If
Next i

Data2.Refresh

End Function
el problema es que no me añade si no los dos primeros datos
cual es el problema.
y verifico el numero de Recorset y me dice que uno cuando son muchos mas
gracias.

En lugar de utilizar un ciclo por la cantidad de registros utiliza un ciclo While:

Data2.Recordset.MoveFirst

List1.Clear
List1.AddItem "*"

While Not Data2.EOF
If Not IsNull(Me.Data2.Recordset.Fields("Código")) And Me.Data2.Recordset.Fields("Código") <> "" Then
List1.AddItem (Me.Data2.Recordset.Fields("Código"))
End If
Data2.MoveNext
Wend

Otro detalle, cuando colocas un If y lo dejas vacío y vas por el Else es preferible que coloques la condición negada, es más claro.