Llenar Listbox Desde Una Tabla Bd "vacia"

[PACO_TORG]

Hola a todos de nuevo..

tengo un problema, a ver si alguien tiene una idea de porque..

estoy tratando de cargar un listbox de una tabla de mi base de datos,, pero hayun pequeño problema..

Esta carga la quiero hacer, tenga o no tenga registros.. bueno, cuando hay registros me loacarga perfecto, peeero cuando no hay nada logicamente me dice que el valor BOF o EOF ES TRUE o el actual registro se elimino,, como puedo resolver este problema..este es mi codigo
With Adodc4

Do

List1.AddItem .Recordset.Fields(2).Value
List2.AddItem .Recordset.Fields(1).Value
List3.AddItem .Recordset.Fields(3).Value
List4.AddItem .Recordset.Fields(4).Value

.Recordset.MoveNext

Loop Until .Recordset.EOF


End With
GRACIAS