Cita:
Iniciado por banrey 
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
List1.AddItem
End If
¿Y qué debe añadir en "List1.AddItem" algún campo?
¿Y dónde termina el bucle "Do Until RecSQL.EOF", es decir donde está el Loop?