Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click frmMainMenu.Height = 720 frmMainMenu.Width = 950 Dim numID As Integer = 2 cmd.Connection = cn cn.Open() cmd.CommandText = "SELECT ID, username, password FROM tblUsers WHERE username = @username and password = @password" cmd.Parameters.Add(New SqlClient.SqlParameter("@username", SqlDbType.VarChar, 20)).Value = txtUsername.Text cmd.Parameters.Add(New SqlClient.SqlParameter("@password", SqlDbType.VarChar, 20)).Value = txtPassword.Text If dr.HasRows Then dr.Read() If dr("ID") = numID Then Me.Hide() frmMainMenu.lblAccessLevel.Text = "Admin" frmMainMenu.Show() Else Me.Hide() frmMainMenu.lblAccessLevel.Text = "User" frmMainMenu.TSMOffertory.Enabled = False frmMainMenu.TSMOffertory.Visible = False frmMainMenu.Show() End If Else MsgBox("Invalid Credentials", MsgBoxStyle.Exclamation, "Invalid LogIn") End If cn.Close() End Sub
dr = cmd.ExecuteReader
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)