求助啊

第一段是个按钮执行程序   x是输入值 是一个文本类型,程序一直报错，求大神怎么改啊

Private Sub 营业所客户_Click()
    Dim x As String
    If IsNull(Me.营业所代码) Then
        MsgBox "请输入营业所代码", vbCritical, "提示"
        Me.营业所代码.SetFocus
        Exit Sub
    End If
   x = Me.营业所代码
    Call t1(x)
End Sub

第二段是t1程序 

 Public Sub t1(x)
 
DoCmd.SetWarnings False
       DoCmd.RunSQL " select 营业所代码.营业所, dbo_客户卡片.客户代码, dbo_客户卡片.客户名称  into 客户明细 " _
                  & " FROM (dbo_客户卡片 INNER JOIN 营业所代码 ON dbo_客户卡片.营业所 = 营业所代码.代码) " _
                  & " WHERE (((营业所代码.营业所) Like  & x & )) " _
                  & " ORDER BY dbo_客户卡片.客户代码 ;"
DoCmd.SetWarnings True
 End Sub