DataReader，必须首先将它关闭，这个在什么地方关闭，如何关闭

Dim username As String = Me.UserName.Text.Replace("'", "")
        Dim password As String = Me.PassWord.Text.Replace("'", "")
        Dim Conn As New OleDbConnection("Data Source=""" & Me.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings("database")) & """;Provider=""Microsoft.Jet.OLEDB.4.0"";User ID=Admin")
        Dim commstr As String
        commstr = "select username,password from T_UserInfo where username ='" & username & "' and password = '" & password & "' and UserLock =0"
        Dim mycomm As New OleDbCommand(commstr, Conn)
        Conn.Open()
        Dim dr As OleDbDataReader = mycomm.ExecuteReader        If dr.Read Then
            Me.Session("UserName") = username
            Me.Panel1.Visible = False
            Me.Panel2.Visible = True
            dr.Close()            '更新登陆信息
            Dim mycom As New OleDbCommand("UPDATE T_UserInfo SET LoginCount = LoginCount+1 WHERE (UserName = '" & username & "')", Conn)
            mycom.ExecuteNonQuery()            Dim my As New OleDbDataAdapter("SELECT UserId, UserName, LoginCount FROM T_UserInfo WHERE (UserName = '" & username & "')", Conn)
            Dim ds As New DataSet
            my.Fill(ds, "T_UserInfo")
            Me.Label1.Text = ds.Tables(0).DefaultView.Item(0).Item(2)            ''写入登陆日志
            Dim ipstring As String = Me.Request.UserHostAddress
            Dim logmycom As New OleDbCommand("INSERT INTO T_LoginLog (UserName, LoginIP) VALUES ('" & username & "','" & ipstring & "')", Conn)
            logmycom.ExecuteReader()            '得到未结订单信息
            Dim myorder As New OleDbDataAdapter("SELECT COUNT(*) AS Expr1 FROM (SELECT DISTINCT OrderID FROM T_BookOrder WHERE (OrderState = '0') AND (UserName = '" & username & "')) DERIVEDTBL", Conn)
            Dim myorderds As New DataSet
            myorder.Fill(myorderds, "T_BookOrder")错误提示如下：
已有打开的与此连接相关联的 DataReader，必须首先将它关闭。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.InvalidOperationException: 已有打开的与此连接相关联的 DataReader，必须首先将它关闭。源错误: 
行 90：             Dim myorder As New OleDbDataAdapter("SELECT COUNT(*) AS Expr1 FROM (SELECT DISTINCT OrderID FROM T_BookOrder WHERE (OrderState = '0') AND (UserName = '" & username & "')) DERIVEDTBL", Conn)
行 91：             Dim myorderds As New DataSet
行 92：             myorder.Fill(myorderds, "T_BookOrder")
行 93：             'Me.Label3.Text = myorderds.Tables(0).DefaultView.Item(0).Item(0)
源文件: F:\Inetpub\wwwroot\Website\LoginAscx.aspx.vb    行: 92 
 
DataReader，必须首先将它关闭，这个在什么地方关闭，如何关闭？小弟很菜，请指教