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

El problema no es el list box ni el combo, es ese movelast que tienes alli...

O sea que si no tienes registros en tu tabla y le dices: "movelast" que significa: "vete al último" ¿como lo hará si no hay registros?

primero debes asegurarte que tu tabla tenga registros.

LISTBOX- Según el manual al definir un listbox el usuario puede seleccionar 1 o mas de las opciones que despliego. Al momento de correr mi programa solo deja seleccionar una.

GRID- No puedo posicionarme en una casilla del grid para poner un valor y trabajar con el dentro de mi programa. Si me deja desplegar el valor pero no tomarlo de pantalla.
.................................................................................Gracias

LISTBOX- Según el manual al definir un listbox el usuario puede seleccionar 1 o mas de las opciones que despliego. Al momento de correr mi programa solo deja seleccionar una.GRID- No puedo posicionarme en una casilla del grid para poner un valor y trabajar con el dentro de mi programa. Si me deja desplegar el valor pero no tomarlo de pantalla. .................................................................................Gracias