hmm

Private Sub UPDATE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UPDATE.Click
        Dim FILE_NAME As String = Constr
        Dim Text As String = ""
        Dim Text_username As String = ""
        Dim Text_password As String = ""
        i = 0
        For i = 0 To jumlah_data - 1
            If ComboBox1.Text = myList_user(i) Then
                data_ada = True
                Exit For
            Else
                data_ada = False
            End If
        Next
        If data_ada = True Then
            i = 0
            My.Computer.FileSystem.WriteAllText(Constr, "", False)
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
            For i = 0 To jumlah_data - 1
                If ComboBox1.Text = myList_user(i) Then
                    Text_username = Text_username + "," + ComboBox1.Text
                    Text_password = Text_password + "," + PasswordTextBox.Text
                Else
                    Text_username = Text_username + "," + myList_user(i)
                    Text_password = Text_password + "," + myList_passsword(i)
                End If
            Next
            Text_username = Mid(Text_username, 2, Text_username.Length)
            Text_password = Mid(Text_password, 2, Text_password.Length)
            Text = "user = " + Text_username + ";" + "pass = " + Text_password + ";"
            objWriter.WriteLine(Text)
            objWriter.Close()
            MsgBox("Data telah di perbaharui")
            Me.Close()
        Else
            MsgBox("Data User tidak ada")
        End If

    End Sub


    Private Sub DELETE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DELETE.Click
        Dim FILE_NAME As String = Constr
        Dim Text As String = ""
        Dim Text_username As String = ""
        Dim Text_password As String = ""
        i = 0
        For i = 0 To jumlah_data - 1
            If ComboBox1.Text = myList_user(i) Then
                data_ada = True
                Exit For
            Else
                data_ada = False
            End If
        Next
        If data_ada = True Then
            i = 0
            My.Computer.FileSystem.WriteAllText(Constr, "", False)
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
            data_hapus = False
            For i = 0 To jumlah_data - 1
                If ComboBox1.Text = myList_user(i) Then
                    data_hapus = True
                Else
                    Text_username = Text_username + "," + myList_user(i)
                    Text_password = Text_password + "," + myList_passsword(i)
                End If
            Next
            Text_username = Mid(Text_username, 2, Text_username.Length)
            Text_password = Mid(Text_password, 2, Text_password.Length)
            Text = "user = " + Text_username + ";" + "pass = " + Text_password + ";"
            objWriter.WriteLine(Text)
            objWriter.Close()
            MsgBox("Data telah di hapus")
            Me.Close()
        Else
            MsgBox("Data User tidak ada")
        End If
    End Sub