Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click Try Dim persona As New Persona persona.id = Guid.NewGuid.ToString persona.cedula = txtCedula.Text persona.nombre = txtNombre.Text persona.apellido = txtApellido.Text persona.edad = CInt(txtEded.Text) persona.fechanacido = Date.Parse(txtFechaTransferencia.Text.FechaFormatoDb).ToString("yyyy-MM-dd") Dim resultado = Sistec.TraerDatos($"INSERT INTO personas VALUES('{persona.id}','{persona.cedula}','{persona.nombre}','{persona.apellido}','{persona.fechanacido}',{persona.edad},'A')") If resultado.Columns.Contains("Respuesta") Then Throw New Exception($"No se pudo grabar persona por : {resultado.Rows(0)("Respuesta")}") End If Listar() Catch ex As Exception msj.MostrarMensajeError($"ERROR: {ex.Message}") End Try End Sub

## Ejemplo de Listado