Visual Basic - problemas con list box y combo box

hola a todos

estube usando el list box y combo box sin ningun problema hasta que me paso el siguiente error

No hay ningun registro activo

ya cheque mi base de datos y tabla en Access y esta bien el fuente que estoy usando es el siguiente a el error me lo marca cuando le asigno el valor a list o a combo

Private Sub Form_Activate()
Dim i
Dim con12 As Integer
Set db = OpenDatabase("d:\system\Paquete.mdb")
Set rs = db.OpenRecordset("select nombre from empleados")
rs.MoveLast
con12 = rs.RecordCount
aviso = MsgBox(con12, vbOKOnly, "Aviso")
If con12 = 0 Then
aviso = MsgBox("No hay datos en la tabla Empleados", vbOKOnly, "Aviso")
Else
aviso = MsgBox("Si hay datos en la tabla Empleados", vbOKOnly, "Aviso")
For i = 0 To con12
With rs
List1.AddItem rs.Fields("nombre")
combo1.AddItem rs.Fields("num_empleado")
combo2.rs.Fields ("nombre")
rs.MoveNext
rs.Close
End With
Next
End If
End Sub

gracias por su ayuda

Según Veo
Te mueves al último registro (siento que eso no va ahí)
despues utilizas un contador para que te diga el numero de registros que trae tu recordset y luego manejas un for
porque no mejor utilizar las propiedades
eof o bof del objeto Recordset
y lo haces con un while

do while not rs.eof
List1.AddItem rs.Fields("nombre")
combo1.AddItem rs.Fields("num_empleado")
combo2.rs.Fields ("nombre")
rs.movenext
loop

Espero te sirva, si tienes dudas aqui estamos

atte
Falil Sellav