Ciao ragazzi, ancora io....

Allora, veniamo subito al dunque:

Ho questo modulo:

Option Explicit
Public conn As ADODB.Connection
Sub main()

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\GestioneProduzione.mdb;Persist Security Info=False"
conn.Open

MDIForm1.Show

End Sub

poi setto la variabile rs:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

rs.Source = "SELECT * FROM GestioneModulo"

rs.Open
rs.AddNew


xkè all'evento inserisci mi da errore?
dice ke l'oggetto fa riferimento ad una connessione chiusa o inesistente.....