求助，运行修改时提示类型不匹配

运行修改时提示类型不匹配，代码如下，请高手们帮忙

Private Sub 修改_Click()
Dim my_db As Database
Dim my_tb As Recordset
Set my_db = CurrentDb
Set my_tb = my_db.OpenRecordset("项目信息", dbOpenDynaset)
my_tb.FindFirst "[项目编号] = " + "'" + Me![项目编号] + "'"
my_tb.Edit
 my_tb("项目编号") = Me![项目编号]
               my_tb("项目名称") = Me![项目名称]
                my_tb("项目业主") = Me![项目业主]
                my_tb("联系电话") = Me![联系电话]
                my_tb("传真") = Me![传真]
               my_tb("地址") = Me![地址]
                my_tb("指定联系人") = Me![指定联系人]
               my_tb("职务/职称") = Me![职务/职称]
               my_tb("电话") = Me![电话]
                my_tb("邮箱") = Me![邮箱]
                my_tb("通信地址") = Me![通信地址]
               my_tb("邮编") = Me![邮编]
               my_tb.Update
                MsgBox ("修改成功!")
 Me![项目编号] = "": Me![项目名称] = "": Me![项目业主] = "": Me![联系电话] = ""
 Me![传真] = "": Me![地址] = "": Me![指定联系人] = "": Me![职务/职称] = ""
 Me![电话] = "": Me![邮箱] = "": Me![通信地址] = "": Me![邮编] = ""
 Me![项目编号].SetFocus
 my_tb.Close
End Sub