请大家帮忙看一下这段代码哪里出错了

shaw4838492

这是一段能实现人力资源管理系统的一个编辑员工出差记录的窗体中，输入“员工编号”后，系统能在该窗体中的“姓名”文本框中自动添加姓名(已经建立员工信息表)，这个是我在一本书上看来的代码，但是输入后系统说语法错误，希望大家帮忙看看错在哪里了，十分感谢：
Public Function openrecord(str1 As String, record As ADODB.Recordset)
Set record = New ADODB.Recordset
record.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Function
Public Function xingming(int1 As Long) As String
Dim record1 As ADODB.Recordset
openrecord"select 姓名 from 员工基本信息 where 员工编号="&int1&"",record1
If record("姓名") = 0 Or IsNull(record("姓名")) Then
xingming = ""
Else xingming = record("姓名")
End If
End Function

t小宝

字符连接符号 & 的前后要有空格

huangqinyong

openrecord"select 姓名 from 员工基本信息 where 员工编号=" & int1 & "",record1

shaw4838492

打上空格后是说没有语法错误了，但是又弹出说“数据类型不匹配”，我的“员工编号”和“姓名”字段设的都是文本类型，是string吧，错在哪里了啊？
请大家帮帮我啊~~~[:27]

shaw4838492

有没有好心人救救我啊，万分感谢啊~~

t小宝

文本类型要加上单引号
openrecord"select 姓名 from 员工基本信息 where 员工编号='" & int1 & "'",record1

andymark

openrecord "select 姓名 from 员工基本信息 where 员工编号='" & int1 & "'", record1