LISTATO 1 Il listato del programma che gestisce una 
rubrica telefonica, soluzione dell’esercizio proposto nella scorsa lezione
Private Sub btnAggiorna_Click()
  dbArchivio.Recordset.Update
End Sub

Private Sub btnCancella_Click()
  dbArchivio.Recordset.Delete
End Sub

Private Sub btnCerca_Click()
  Dim Criterio As String
  
  Criterio = "Cognome LIKE """ & txtCerca.Text & "*"""
  If obPrecedente.Value Then
    dbArchivio.Recordset.FindPrevious Criterio
  ElseIf obProssimo.Value Then
    dbArchivio.Recordset.FindNext Criterio
  ElseIf obPrimo.Value Then
    dbArchivio.Recordset.FindFirst Criterio
  Else
    dbArchivio.Recordset.FindLast Criterio
  End If
  If dbArchivio.Recordset.NoMatch Then
    MsgBox "Elemento non trovato"
  End If
End Sub

Private Sub btnNuovo_Click()
  dbArchivio.Recordset.AddNew
End Sub

Private Sub btnPrecedente_Click()
  If Not dbArchivio.Recordset.BOF Then
     dbArchivio.Recordset.MovePrevious
  End If
End Sub

Private Sub btnPrimo_Click()
  If Not dbArchivio.Recordset.BOF Then
    dbArchivio.Recordset.MoveFirst
  End If
End Sub

Private Sub btnSeguente_Click()
  If Not dbArchivio.Recordset.EOF Then
     dbArchivio.Recordset.MoveNext
  End If
End Sub

Private Sub btnUltimo_Click()
  If Not dbArchivio.Recordset.EOF Then
    dbArchivio.Recordset.MoveLast
  End If
End Sub

Private Sub btnConta_Click()
  Dim Criterio As String
  Dim Contatore As Integer
  
  Contatore = 0
  Criterio = "Cognome LIKE ""*" & txtCerca.Text & "*"""
  dbArchivio.Recordset.FindFirst (Criterio)
  Do While Not dbArchivio.Recordset.NoMatch
    Contatore = Contatore + 1
    dbArchivio.Recordset.FindNext (Criterio)
  Loop
  MsgBox "Sono stati trovati " & Contatore & " record"
End Sub