Sub FillGrid()
        OpenCon()
        cmSQL = New OleDb.OleDbCommand("SELECT cDescription, dDate FROM WebSavedOrders " & _
        "GROUP BY cDescription, dDate,cCustNo " & _
        "HAVING (cCustNo='" & M_User.CNo(Session.SessionID) & "')", Con)

        rsSQL = cmSQL.ExecuteReader
        DataGrid1.AutoGenerateColumns = False
        DataGrid1.DataSource = rsSQL
        Me.DataBind()
        CloseCon()
    End Sub

    Sub FillGrOut()
        OpenCon3()
        cmSQL2 = New OleDb.OleDbCommand("SELECT cSoNo, cPoNo, dOrder FROM SosOrd " & _
        "WHERE  cCustNo='" & M_User.CNo(Session.SessionID) & "'", Con3)

        rsSQL2 = cmSQL2.ExecuteReader
        dgOut.AutoGenerateColumns = False
        dgOut.DataSource = rsSQL2
        Me.DataBind()
        CloseCon3()
    End Sub

Invalid attempt to FieldCount when reader is closed.