Call kon()
        koneksi.Open()
        cd = New MySqlCommand("select * from tb_login where Username='" & UsernameTextBox.Text & "' and Password='" & PasswordTextBox.Text & "'", koneksi)
        rd = cd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            MsgBox("Login Berhasil", MsgBoxStyle.Information)
            Menu_Utama.Show() 'Menu yang akan ditampilkan setelah berhasil login
            Me.Hide()
        Else
            rd.Close()
            MsgBox("Username/Password salah!", MsgBoxStyle.Critical)
        End If
        koneksi.Close()