I am guessing that Metric is a numeric field?
Text fields require text qualifiers of single or double-quotes around them. I like to use Chr(34) so as to not confuse it with the other double-quotes I am using in my formula. I think you also need a space after the word "SELECT". And I believe that the aliases in your calculated fields are not necessary in Append Queries.
So try:
Code:
DoCmd.RunSQL ("INSERT INTO StatusT ( State, Metric ) SELECT " & Chr(34) & StrQ & Chr(34) & ", [Forms]![MainNavigation].[NavigationSubform].[Form]![AddMetric].[Form]![MMetricID];")