Ammesso di aver capito, non puoi fare così?

codice:
Using connessione As New OleDbConnection(stringaConnessione)    
	connessione.Open()
    
    dim obj as new clsArticolo(connessione)
    '***
End Using