Visual Basic

Dim webe As New ProcessStartInfo()
Dim username1 As New IO.StreamReader("C:\Textfile.txt")

Do While NOT UserName.EndOfStream
   If UserName1.ReadLine() = UserName.Text.toString & PassWord.Text.ToString Then
      'login information exist perform some type of actions
      exit do
   ElseIf UserName.Text & PassWord.Text = "Admin" & "admin" Then
      StatusStrip.text = "WelCome" & userName.Text
   End IF
Loop
UserName1.Close()

Dim username1 As New IO.StreamReader("C:\username.txt")<br />
    Dim password1 As New IO.StreamReader("C:\password.txt")<br />
    Dim adminun As New IO.StreamReader("C:\adminun.txt")<br />
    Dim adminpw As New IO.StreamReader("C:\adminpw.txt")<br />
<br />
<br />
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click<br />
        Do While username1.EndOfStream<br />
            If username1.ReadLine() = Username.Text.ToString & Password.Text.ToString Then<br />
                Exit Do<br />
            End If<br />
        Loop<br />
        username1.Close()<br />
        Do While password1.EndOfStream<br />
            If username1.ReadLine() = Username.Text.ToString & Password.Text.ToString Then<br />
                Exit Do<br />
            End If<br />
        Loop<br />
        password1.Close()<br />
    End Sub<br />

System.ObjectDisposedException was unhandled<br />
  Message="Cannot read from a closed TextReader."<br />
  ObjectName=""<br />
  Source="mscorlib"<br />
  StackTrace:<br />
       at System.IO.__Error.ReaderClosed()<br />
       at System.IO.StreamReader.get_EndOfStream()<br />
       at WindowsApplication1.Form1.Login_Click(Object sender, EventArgs e) in C:\Users\Brad\Documents\Visual Studio 2005\Projects\SC Login\SC Login\Form1.vb:line 9<br />
       at System.Windows.Forms.Control.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)<br />
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)<br />
       at System.Windows.Forms.Button.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)<br />
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.Run(ApplicationContext context)<br />
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()<br />
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()<br />
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)<br />
       at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81<br />
       at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)<br />
       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)<br />
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()<br />
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)<br />
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)<br />
       at System.Threading.ThreadHelper.ThreadStart()

If the e.Row.RowType = DataControlRowType.DataRow Then <br />
    e.Row.BackColor = Color.Red<br />
End If

        Dim styleDefault As New DataGridViewCellStyle()<br />
        styleDefault.BackColor = Color.White<br />
        styleDefault.ForeColor = Color.Black<br />
        styleDefault.SelectionBackColor = Color.White<br />
        styleDefault.SelectionForeColor = Color.Black<br />
        dgvMyGrid.DefaultCellStyle = styleDefault<br />
<br />
        Dim styleAlternate As New DataGridViewCellStyle()<br />
        styleAlternate.BackColor = Color.LightGoldenrodYellow<br />
        styleAlternate.ForeColor = Color.Black<br />
        styleAlternate.SelectionBackColor = Color.LightGoldenrodYellow<br />
        styleAlternate.SelectionForeColor = Color.Black<br />
        dgvMyGrid.AlternatingRowsDefaultCellStyle = styleAlternate

        Dim styleTemp As New DataGridViewCellStyle<br />
        styleTemp.BackColor = Color.Red<br />
        styleTemp.ForeColor = Color.Black<br />
        styleTemp.SelectionBackColor = Color.Red<br />
        styleTemp.SelectionForeColor = Color.Black<br />
<br />
        dgvMyGrid.Rows(intMyRowIndex).DefaultCellStyle = styleTemp