关于VBE窗体事件

请问下在VBE窗口中有如下过程:Private Sub 保存货商记录_Click()
On Error GoTo Err_保存货商记录_Click
   
    If IsNull(Me![货商ID]) = True Then
      
        MsgBox "请输入“货商ID”，它不可以为空!", vbOKOnly, "输入“货商ID”"
      
        Me![货商ID].SetFocus
    ElseIf IsNull(Me![公司名称]) = True Then
        MsgBox "请输入“公司名称”，它不可以为空!", vbOKOnly, "输入“公司名称”"
        Me![公司名称].SetFocus
    ElseIf IsNull(Me![公司地址]) = True Then
        MsgBox "请输入“公司地址”，它不可以为空!", vbOKOnly, "输入“公司地址”"
        Me![公司地址].SetFocus
     ElseIf IsNull(Me![职务]) = True Then
        MsgBox "请输入“职务”，它不可以为空!", vbOKOnly, "输入“职务”"
        Me![职务].SetFocus
        ElseIf IsNull(Me![联系人]) = True Then
        MsgBox "请输入“联系人”，它不可以为空!", vbOKOnly, "输入“联系人”"
        Me![联系人].SetFocus
  
  
    Else
       
        STemp = "INSERT INTO 供货商资料 "
        STemp = STemp & "( 货商ID,公司名称,职务,联系人,公司地址,"
        STemp = STemp & "电话,传真,备注)"
        STemp = STemp & "VALUES (" & Me![货商ID] & ","" & Me![公司名称]&"
        STemp = STemp & "" & Me![联系人] & "','" & Me![职务] & "',"
        STemp = STemp & "" & Me![公司地址] & "'," & Me![电话] & "',"
        STemp = STemp & "" & Me![传真] & "','" & Me![备注] & "')"
      
        DoCmd.RunSQL STemp
     
        Me![供货商资料管理 子窗体].Requery
    End If
Exit_保存货商记录_Click:
    Exit Sub
Err_保存货商记录_Click:
    MsgBox Err.Description
    Resume Exit_保存货商记录_Click
End Sub
请问我这里面哪里出错了
会显示字符串的语法错误，在查询表达式‘“& Me![公司名称]&小王’，‘无。。。。。 点击下载此附件