Public Sub creatabella()
Dim n As Byte
Dim sql As String
Dim htable As Result
      sql = "CREATE TABLE 'db' ("
      sql &= " 'id_db' varint(10) default null," ' con 0 non cambia niente
      sql &= " 'nome' varchar(20) DEFAULT NULL,"
      sql &= " 'cognome' varchar(20) DEFAULT NULL,"
      sql &= " 'citta_n' varchar(30) DEFAULT NULL,"
      sql &= " 'nato_il' varchar(15) DEFAULT NULL,"
      sql &= " 'citta_m' varchar(30) DEFAULT NULL,"
      sql &= " 'morto_il' varchar(15) DEFAULT NULL,"
      sql &= " 'padre' varchar(20) DEFAULT NULL,"
      sql &= " 'madre' varchar(20) DEFAULT NULL,"
      For n = 1 To 20
        sql &= " 'figlo_n_" & n & "' varchar(20) DEFAULT NULL,"
      Next
      sql &= " 'moglie' varchar(20) DEFAULT NULL,"
      sql &= " 'sposato_il' varchar(20) DEFAULT NULL,"
      sql &= " 'varie' varchar(100) DEFAULT NULL,"
      sql &= " 'foto' varchar(500) DEFAULT NULL);"
      
 hTable = $conn.Exec(sql)
      
      $conn.Commit
      $conn.Close

End

Public Sub btn_salva_Click()
Dim id As Integer
Print c_var.send_row
MyRS.MoveTo(c_var.send_row)
MyRS = gestisci_db.$conn.Edit("db", "id_db=" & c_var.send_row)'<--------------------qui
' If MyRS.Available = True Then
   MyRS!id_db = c_var.send_row
   MyRS!cognome = tb_cognome.Text ' salvo nel record selezionato i vari campi
   MyRS!nome = tb_nome.Text
   MyRS!citta_m = tb_citta_m.Text
   MyRS!citta_n = tb_citta_n.Text
   MyRS!madre = tb_madre.Text
   MyRS!moglie = tb_moglie.Text
   MyRS!morto_il = tb_morto_il.Text
   MyRS!nato_il = tb_nato_il.Text
   MyRS!padre = tb_padre.Text
   MyRS!sposato_il = tb_sposato_il.Text
   MyRS!varie = tb_varie.Text
   
   
   MyRS.Update ' aggiorno
   gestisci_db.$conn.Commit
   gestisci_db.$conn.Close
'Endif
End