Column does not exist in DataTable Problem

[Bob Ross]

I have a very starange problem. I am trying to access a value from a datatable by specifying the column on the datarow but it keeps saying
"Column 'BitValue' is not cantained in table 'Fields'"
But it clearly is. All other columns work fine and I can reference it by number but not by name.

FieldsDS = FieldsSqlFactory.ExecuteQuery()
FieldsDS.Tables(0).TableName = "Fields"
 
Dim AdditionalField As OrderingSpecificField
Dim C As Integer = 0
While C < FieldsDS.Tables(0).Rows.Count
      Dim FR As DataRow = FieldsDS.Tables(0).Rows(C)
 
       'Check For which type of value & Build new Field by passing parameters to constructer
        Select Case FR("FieldDataType")
              Case "SpecificFieldDataType.bitValue"
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.bitValue, FR("FieldName"), FR("BitValue"), FR("TextValue"))
              Case "SpecificFieldDataType.dateValue"
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.dateValue, FR("FieldName"), FR("DateValue"), FR("TextValue"))
              Case "SpecificFieldDataType.floatValue"
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.floatValue, FR("FieldName"), FR("FloatValue"), FR("TextValue"))
              Case "SpecificFieldDataType.intValue"
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.intValue, FR("FieldName"), FR("IntValue"), FR("TextValue"))
              Case "SpecificFieldDataType.cboKeyValue"
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.cboKeyValue, FR("FieldName"), FR("CboKey"), FR("TextValue"))
              Case Else
                  AdditionalField = New OrderingSpecificField(FR("ParentId"), FR("FieldIdentifier"), SpecificFieldDataType.txtValue, FR("FieldName"), FR("TextValue"), FR("TextValue"))
        End Select
 
        'add to Sample's collection of fields
        SampleFields.Add(AdditionalField)
        C += 1
End While

It is the first case statement that causes problems.

If ANYONE could hepl I would much appreciate it.

[kenobewan]

What database and platform are you using?

[Bob Ross]

Thanks for your reply.
But I got it working.
Stupid error managed to give the column a title of " BitValue" instead of "BitValue". DOH!