Private Sub cmd_fine_Click()[COLOR=red]'Pulsante per terminare il programma[/COLOR]
End 
End Sub
Private Sub cmd_next_Click()  [COLOR=red]'Pulsante per scorrere il recordset[/COLOR]
rs.MoveNext                       
If rs.EOF Then rs.MoveLast
txt_id = rs.Fields("ID") & ""
txt_data = rs.Fields("DATA") & ""
txt_codlav = rs.Fields("Cod_lav") & ""
End Sub
Private Sub Form_Load() [COLOR=red]'Nel Form_load apro la connessione al mio db(Totale) e connetto [/COLOR][COLOR=red]il recordset alla mia tabella (MATERIALE)[/COLOR]
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & "\Totale.mdb"
SQL = "Select * from MATERIALE" 'Salvo in SQL una select SQL
rs.Open SQL, cn 'apre il record
txt_id = rs.Fields("ID") & ""
txt_data = rs.Fields("DATA") & ""
txt_codlav = rs.Fields("Cod_lav") & ""
End Sub
Private Sub Form_Unload(Cancel As Integer) [COLOR=red]'Chiudo la connessione al DB[/COLOR]
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub