Private Sub btn_nova_Click() dc_Vd.Recordset.AddNew c = "C" y = y + 1 n_vd = c & Trim(Str(y)) txt_num.Text = n_vd End Sub cada vez q eu carrego no btn_nova ele cria um Registo na BD soma o C + o y ou seja cada vez q eu carregar vai aparecer na txT_num = c1, c2,c3 conforme eu carrego vai incrementando mas depois qd eu abro de novo o form volha ao c1 volta* cm faço para guardar o ultimo valor e depois continuar