' ******************************************************
' カラムの番号取得
' ******************************************************
Public Function GetColumnIndex(ByVal strName As String) As Integer

	GetColumnIndex = Me.Columns(strName).Index

End Function