This is just a real simple loading a record into a class, when I get to either of the bolded lines (I tried swapping them), I get an exception. I moved them to the end there, they had been in the middle.

In the database the data for InsertedBy is "SECO\_Sgrebey" and the Value for InsertedTime is "2010-06-16 10:52:00"

If I do a quick watch on them (i.e. drReader.Item("InsertedBy") and drReader.Item("InsertedTime"), I see their values as being "InsertedBy" and "InsertedTime".

Then when I get to those lines of code (IsDBNull lines), they except with following exception:

ex: {"InsertedBy"}
InnerException: Nothing
Message: {"InsertedBy"}
Source: System.Data
StackTrace: " at System.Data.ProviderBase.FieldNameLookup.GetOrdinal(String fieldName) at System.Data.SqlClient.SqlDataReader.GetOrdinal(String name) at System.Data.SqlClient.SqlDataReader.get_Item(String name) at clsSQL.LoadWorkOrderByWorkOrder(clsWorkOrder oWorkOrder) in C:\Engineering Notebooks\EngSrvcs\App_Code\clsSQL.vb:line 202"

Anybody see anythign stupid I am doing wrong there?

Code:
    Public Function LoadWorkOrderByWorkOrder(ByVal oWorkOrder As clsWorkOrder) As Boolean
        Dim boolResult As Boolean = True
        Dim strSQL As String = ""
        Dim drReader As SqlClient.SqlDataReader = Nothing

        Try

            m_SQLCommand.Parameters.Clear()

            m_SQLCommand.Parameters.AddWithValue("@WorkOrder", oWorkOrder.intWorkOrder)

            strSQL = "SELECT * FROM WorkOrders WHERE WorkOrder = @WorkOrder"

            If m_SQLConn.State = ConnectionState.Closed Then
                m_SQLConn.Open()
            End If

            m_SQLCommand.CommandText = strSQL

            drReader = m_SQLCommand.ExecuteReader()

            If drReader.Read() Then

                If Not IsDBNull(drReader.Item("RUSCode")) Then
                    oWorkOrder.intRUSCode = drReader.Item("RUSCode")
                End If
                If Not IsDBNull(drReader.Item("EngFee")) Then
                    oWorkOrder.boolEngFee = drReader.Item("EngFee")
                End If
                If Not IsDBNull(drReader.Item("Invoiced")) Then
                    oWorkOrder.dtEngFeeInvoiced = drReader.Item("Invoiced")
                End If
                If Not IsDBNull(drReader.Item("Paid")) Then
                    oWorkOrder.dtEngFeePaid = drReader.Item("Paid")
                End If
                If Not IsDBNull(drReader.Item("Designed")) Then
                    oWorkOrder.dtDesigned = drReader.Item("Designed")
                End If
                If Not IsDBNull(drReader.Item("Estimate")) Then
                    oWorkOrder.dEstimate = drReader.Item("Estimate")
                End If
                If Not IsDBNull(drReader.Item("PermitRequired")) Then
                    oWorkOrder.boolPermit = drReader.Item("PermitRequired")
                End If
                If Not IsDBNull(drReader.Item("PermitReceived")) Then
                    oWorkOrder.dtPermit = drReader.Item("PermitReceived")
                End If
                If Not IsDBNull(drReader.Item("EasementRequired")) Then
                    oWorkOrder.boolEasement = drReader.Item("EasementRequired")
                End If
                If Not IsDBNull(drReader.Item("EasementReceived")) Then
                    oWorkOrder.dtEasement = drReader.Item("EasementReceived")
                End If
                If Not IsDBNull(drReader.Item("CIACRequired")) Then
                    oWorkOrder.boolCiac = drReader.Item("CIACRequired")
                End If
                If Not IsDBNull(drReader.Item("CIACAmount")) Then
                    oWorkOrder.dCiacAmount = drReader.Item("CIACAmount")
                End If
                If Not IsDBNull(drReader.Item("CIACRefundable")) Then
                    oWorkOrder.dCiacRefund = drReader.Item("CIACRefundable")
                End If
                If Not IsDBNull(drReader.Item("CIACNonRefundable")) Then
                    oWorkOrder.dCiacNonRefund = drReader.Item("CIACNonRefundable")
                End If
                If Not IsDBNull(drReader.Item("CIACPaid")) Then
                    oWorkOrder.dtCiacPaid = drReader.Item("CIACPaid")
                End If
                If Not IsDBNull(drReader.Item("ConstrManHrs")) Then
                    oWorkOrder.dManHours = drReader.Item("ConstrManHrs")
                End If
                If Not IsDBNull(drReader.Item("VegMgmtRequired")) Then
                    oWorkOrder.boolVegMgmt = drReader.Item("VegMgmtRequired")
                End If
                If Not IsDBNull(drReader.Item("OnHold")) Then
                    oWorkOrder.boolOnHold = drReader.Item("OnHold")
                End If
                If Not IsDBNull(drReader.Item("OnHoldIn")) Then
                    oWorkOrder.dtOnHoldIn = drReader.Item("OnHoldIn")
                End If
                If Not IsDBNull(drReader.Item("OnHoldOut")) Then
                    oWorkOrder.dtOnHoldOut = drReader.Item("OnHoldOut")
                End If
                If Not IsDBNull(drReader.Item("OnHoldNotes")) Then
                    oWorkOrder.strOnHoldNotes = drReader.Item("OnHoldNotes")
                End If
                If Not IsDBNull(drReader.Item("IsVoid")) Then
                    oWorkOrder.boolVoid = drReader.Item("IsVoid")
                End If
                If Not IsDBNull(drReader.Item("Void")) Then
                    oWorkOrder.dtVoid = drReader.Item("Void")
                End If
                If Not IsDBNull(drReader.Item("VoidNotes")) Then
                    oWorkOrder.strVoidNotes = drReader.Item("VoidNotes")
                End If
                If Not IsDBNull(drReader.Item("ReleasedDate")) Then
                    oWorkOrder.dtReleased = drReader.Item("ReleasedDate")
                End If
                If Not IsDBNull(drReader.Item("SvcRequiredDate")) Then
                    oWorkOrder.dtService = drReader.Item("SvcRequiredDate")
                End If
                If Not IsDBNull(drReader.Item("Notes")) Then
                    oWorkOrder.strNotes = drReader.Item("Notes")
                End If
                If Not IsDBNull(drReader.Item("HasRedLine")) Then
                    oWorkOrder.boolRedline = drReader.Item("HasRedLine")
                End If
                If Not IsDBNull(drReader.Item("MainServicePlanner")) Then
                    oWorkOrder.strMainPlanner = drReader.Item("MainServicePlanner")
                End If
                If Not IsDBNull(drReader.Item("MainType")) Then
                    oWorkOrder.strMainType = drReader.Item("MainType")
                End If
                If Not IsDBNull(drReader.Item("MainDivision")) Then
                    oWorkOrder.strMainDivision = drReader.Item("MainDivision")
                End If
                If Not IsDBNull(drReader.Item("LastEditBy")) Then
                    oWorkOrder.strLastEditBy = drReader.Item("LastEditBy")
                End If
                If Not IsDBNull(drReader.Item("LastEditTime")) Then
                    oWorkOrder.dtLastEditTime = drReader.Item("LastEditTime")
                End If
                If Not IsDBNull(drReader.Item("Distribution")) Then
                    oWorkOrder.boolDistribution = drReader.Item("Distribution")
                End If
                If Not IsDBNull(drReader.Item("Substation")) Then
                    oWorkOrder.boolSubstation = drReader.Item("Substation")
                End If
                If Not IsDBNull(drReader.Item("Transmission")) Then
                    oWorkOrder.boolTransmission = drReader.Item("Transmission")
                End If
                If Not IsDBNull(drReader.Item("InsertedTime")) Then
                    oWorkOrder.dtInsertedTime = drReader.Item("InsertedTime")
                End If
                If Not IsDBNull(drReader.Item("InsertedBy")) Then
                    oWorkOrder.strInsertedBy = drReader.Item("InsertedBy")
                End If

            Else

                boolResult = False

                m_strLastError = "No matching Work Order Record found"
            End If

        Catch ex As Exception

            boolResult = False

            m_strLastError = ex.Message
        Finally

            If drReader Is Nothing = False Then
                If drReader.IsClosed = False Then
                    drReader.Close()
                End If
            End If

            If m_SQLConn.State = ConnectionState.Open Then
                m_SQLConn.Close()
            End If
        End Try

        Return boolResult
    End Function