Gracias Avellaneda.
Me ha servido lo que me has escrito, pero el problema lo tengo aquí:
Cita: Private Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from empleado"
rsempleado.Open sql, Cn, adOpenDynamic, adLockOptimistic
End Sub
Me sale el siguiente mensaje:
Error '3709' en tiempo de ejecución:
No se puede utilizar la conexión para realizar esta operación.Está cerrada o no es válida en este contexto.