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

dim i as integer
Set db = OpenDatabase("d:\system\Paquete.mdb")
Set rs = db.OpenRecordset("select nombre from empleados")
if rs.recordcount > 0 then
list1.clear
rs.movefirst
do until rs.eof
list1.additem rs!nombre
rs.movenext
loop
rs.close
bd.close
else
aviso = msgbox("No hay datos", vbcritical,"Aviso")
end if

Usa este codigo... creo que te servira.....
chau