Listar registros de database de dos en dos

[iURBANO]

Hola, necesito una pequeña ayuda, hice un programa en donde se listan unos registros que tengo en una tabla de access en un combobox, en el cual se tienen que listar de esta forma: 1, 3, 5, 7... Etc.

Pero tengo un error ya que me aparecen de esta forma:
1,2, 5, 7, 9........

el 2 no tiene que aparecer, si no el 3, alguien me podria ayudar a resolver este pequeño detalle, de antemano Gracias.

Este es el Codigo:

Private Sub Command1_Click()
While Not Data1.Recordset.EOF
L1.AddItem Data1.Recordset.Cve_Edo & " " & Data1.Recordset.Nom_Edo & " " & Data1.Recordset.Abr_Edo
Data1.Recordset.MoveNext
Data1.Recordset.MoveNext
Wend
End Sub