For Each col As DataColumn In dt.Columns
                Dim pi As Reflection.PropertyInfo = Me.GetType().GetProperty( _
                  col.ColumnName)
                Dim t As Type = Me.GetType()
                Try
                    If pi.CanWrite Then pi.SetValue(Me, dt.Rows(0).Item( _
                      col.ColumnName), Nothing)
                Catch ex As Exception
                    MessageBox.Show(dt.Rows(0).Item(col.ColumnName) & " " & _
                      col.ColumnName & " " & ex.ToString)
                End Try
            Next

Sector Twelve, or to Infinity and Beyond, whichever comes first.!