' ******************************************************
' 行追加
' ******************************************************
Public Sub AddRow()

	nCurrentRow = Me.Rows.Add(1)

End Sub