Public rs As New ADODB.Recordset
Public conn As New ADODB.Connection
Public StrSql As String
Public SConnessione As String



Sub main()

SConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Marte2000\SyslabWEB\Davide\prima_nota\pri ma_nota.mdb;Persist Security Info=False"
conn.Open SConnessione

FRM_PrimaNota.Show

End Sub


e poi eseguo cos' la queri il tuo modo non lo ho mai visto scusa eh


Query = "INSERT INTO progressivi (mese,anno,prog_mensile) VALUES (" & MESE & " ," & anno & ", 1)"
conn.Execute Query