Function SJTh(code As String, codezd As String, codelb As String, codecs As String) As String
'数据名称替换
'1-代码，2-文书
' sjth ("要替换的内容","要显示的字段","表","参数")

Dim dbs As Database  '定义引用数据库的变量。
Dim rst As Recordset '定义引用记录集的变量。
Dim strcode As String
Set dbs = CurrentDb()
Select Case codelb
Case "1"
strcode = "dM"
Set rst = dbs.OpenRecordset("select * from dm where lb='" & codecs & "'")

Case "2"

Case Else

End Select

SJTh = code
While Not rst.EOF
 SJTh = Replace(SJTh, rst(strcode), rst(codezd), , 1)
 rst.MoveNext
Wend

End Function