Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
strConnString = "Server=localhost;User Id=root; Password=1111; Database=hospitals; Pooling=false"
objConn.ConnectionString = strConnString
objConn.Open()
Dim intNumRows As Integer
strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND [Password] = '" & Me.txtPassword.Text & "' "
objCmd = New MySqlCommand(strSQL, objConn)
intNumRows = objCmd.ExecuteScalar()
If intNumRows > 0 Then
Cast.Show()
Else
Me.lblStatus.Visible = True
Me.lblStatus.Text = "Username/Password is wrong."
End If
objConn.Close()
objConn = Nothing