explica un poco que estas haciendo, asi no se te puede decir nada, explica que es lo que haces para querer actualizar el form.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Dim vExiste As Boolean = False
For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
' si el dni que quiero insertar ya esta en la tabla muestra un error
If txt_DNI.Text = dni Then
vExiste = True
Exit For
End If
Next
If vExiste Then
MessageBox.Show("txt_dni: " & txt_DNI.Text & "DNI: " & dni)
MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
Exit Sub
Else
' inserto el usuario en la base de datos
Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
End If