#3 Form Login - login button

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        koneksi()
        Dim query As New SqlCommand("SELECT * FROM Users WHERE Username = '" & txtUname.Text & "' AND Password = '" & txtPass.Text & "'", konek)
        Dim er = query.ExecuteReader
        er.Read()

        If er.HasRows Then
            Me.Hide()

            If er.Item("Role") = "Admin" Then
                FormAdmin.Show()
                FormAdmin.lblUname.Text = er.Item("Username")
            ElseIf er.Item("Role") = "Guru" Then
                FormGuru.Show()
            Else
                FormMurid.Show()
            End If
        Else
            MsgBox("Username / Password salah!", vbCritical, "")
        End If
End Sub