Nombre de las columnas DataRow

For Each dr As DataRow In ds.Tables(0).Rows
   MessageBox.Show(dr.Table.Columns(0).ColumnName)
Next


' Verificar si existen registros
If ds.Tables(0).Rows.Count > 0 Then
End If