A eso queria llegar... Como te dije antes que abres el Recorset pero no veo que lo cierres...
Código:
Set RecSQL = New ADODB.Recordset ' Creas un objeto con el mismo nombre 2 veces
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT nombre_empresa,cedula_pat,direccion,nro_telef FROM rosal WHERE nro_empresa = '" & Val(pasadato.SelectedItem) & "' ", BD, adOpenStatic, adLockOptimistic
Debes cerrar el Recordset con
Código:
RecSQL.close
set RecSQl = Nothing
Eso al final de cada consulta, OJO CADA CONSULTA... Creas un objeto Recordset, lo abres y luego de mostrar, incluir, modificar, etc, debes cerrarlo...