' ******************************************************
' カラムの名称取得
' ******************************************************
Public Function GetColumnName(ByVal nIndex As Integer) As String

	GetColumnName = Me.Columns(nIndex).Name

End Function