anche pensando di aprire la connessione al db, e ricavare qual'è l'ultimo valore del db in questa maniera

codice:
  Call do_connect: Set rs = CreateObject("ADODB.Recordset")
  If (conn.State = adStateOpen) Then
  query = "SELECT * FROM categorie": rs.Open query, conn:
For a = 1 To rs.RecordCount
    If a = Index Then
      framecat(a).Visible = True ' visualizzo il frame
    Else
      framecat(a).Visible = False 'nascondo il frame
    End If
Next

succede sempre che quando avvio il progetto e premo sui tasti, la prima pigiata non succede nulla. Poi ripremendo funziona, sia sul pulsante appena premuto che su altri.