[VB6] Errore "Invalid Outside Procedure"

[eroedelsilenzio]

Salve a tutti!
Sto realizzando la mia solita applicazione che si basa su un DBMS MySQL. Per evitare di incasinarmi con le connessioni, voglio generalizzarle usando, dietro consiglio di un amico, un modulo .bas.

Tanto per cambiare, ecco il solito errore pressoché inspiegabile. Utilizzando questo codice:
_____________________________
Public cn As ADODB.connection
Dim strcon As String


strcon = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=laworg "

cn.Open strcon



cn.Open strcon

Public Sub connetti(O As Object, S As String, Optional connection As String = "")
O.ConnectionString = IIf(connection = "", cn, connection)
O.RecordSource = S
O.Refresh
End Sub
________________________________________

se provo a far "girare" l'applicazione, vengo fermato a livello di compile-time con questo errore: Invalid Outside Procedure proprio nel punto evidenziato.

Chi di voi è pratico di moduli .bas e sa, può e vuole aiutarmi?

[eroedelsilenzio]

Ho risolto mettendo tutto dentro una sub. Ma ho ancora dei problemi...

[oregon]

Veramente l'errore e' assolutamente evidente ...

Non puoi usare codice al di fuori di Sub o Function neanche in un modulo ...

Per i problemi che rimangono, non so che dirti, se non ce li descrivi ...

[eroedelsilenzio]

Originariamente inviato da oregon
Veramente l'errore e' assolutamente evidente ...

Non puoi usare codice al di fuori di Sub o Function neanche in un modulo ...

Per i problemi che rimangono, non so che dirti, se non ce li descrivi ...

Mi sono reso conto della cosa e ho rimediato... gli altri problemi non li ho descritti perché erano semplicemente bug di visual basic, tipo quello dell'Adodc in cui, se metti nel recordsource un'istruzione sql che non sia una select dice "impossibile eseguire l'operazione se l'oggetto è chiuso". Via il dente (l'Adodc) via il dolore!