cmd = New SqlCommand("Select * from Tax_User where US_ID=@US_ID and US_Pass=@US_Pass", Connt)
cmd.Parameters.AddWithValue("@US_ID", txtID.Text)
cmd.Parameters.AddWithValue("@US_Pass", txtPass.Text)
dr = cmd.ExecuteReader()
If dr.HasRows Then
dr.Close()
FrmMain.ShowDialog()
Else
dr.Close()
MessageBox.Show("Username and password denied", "Error")
txtPass.Select()
txtPass.SelectAll()
Exit Sub
End If