Creo que anibal tiene razón, yo creo que el fallo está aquí
ado_principal.ConnectionString = CN
ado_principal.RecordSource = comando
ado_principal.Refresh
ado_principal.Recordset.Filter =...

He hecho la prueba y no me da ningún error.
Te digo lo que hago:
Estoy en form1, doy a un boton y carga form9(form9.show)
Me carga form9.
En form 9 he puesto el codigo que te he dicho antes y si...

He probado en mi proyecto poniendo esto desde form9:
Private Sub Command1_Click()
If Form1.Visible = True Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub