If TextBox1.Text = "" Then MsgBox("Data

        If TextBox1.Text = "" Then
            MsgBox("Data Belum Di Isi")
            Exit Sub
        Else
            If MessageBox.Show("Yakin Akan Di Hapus", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Dim HAPUS As String = "Delete from user where id_user='" & TextBox1.Text & "'"
                cmd = New OdbcCommand(HAPUS, Conn)
                cmd.ExecuteNonQuery()
                Call tampilgrid()
                Call bersihkan()
                TextBox1.Clear()
            End If
        End If
RAW P