Miscellany

Private Sub BT_newvoce_Click()
    DB_PREV.RecordSource = "select * from db_prev where numero = " & NORD.Text
  DB_PREV.Refresh
  '  DB_PREV.Recordset.MoveLast
       DB_PREV.Refresh
        last_id = DB_PREV.Recordset.RecordCount
     last_id = InputBox("Righa da inserire", , last_id)
    If last_id = "" Then last_id = DB_PREV.Recordset.RecordCount
    flag = True
    DB_PREV.Recordset.AddNew
    DB_PREV.Recordset("NUMERO") = NORD.Text
    DB_PREV.Recordset("Id") = last_id + 1
    DB_PREV.Recordset.Update
    DB_PREV.Recordset.MoveLast
    
    Casa.Text = ""
    Codice.Text = ""