上面sql语句异常原因是啥

下面sql语句错误原因是啥？
Private Sub Command18_Click()
Dim str, str2 As String
str = InputBox("请输入本月月份")
str2 = "INSERT INTO Tab_meter_readdata" & _
  "(MeterCode, Meter_period)" & _
  "SELECT MeterCode, " & str & " AS Expr1" & _
  "FROM Tab_meter" & _
  "WHERE (MeterState = 1)"
DoCmd.RunSQL str2
End Sub

错误提示：第1行：'Tab_meterWHERE'附近有语法错误。

根据提示我在 where 前面加了个空格，结果就是错误提示：第1行：'Tab_meter'附近有语法错误。

然后就不知道哪里有问题！请指教，这个问题困扰我好多次了

[解决办法]