Gracias Culd pero no me funciona de hecho ya lo habia probado con ese opción de cerrarlo pero el problema persiste:
Cuando me da el error me marca esta linea:
Código:
Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic