继续-实现伪代码的需求！

可使用下面的函数

Function MyConvert1(Code As String) As String
Dim dbs As Database  '定义引用数据库的变量。
Dim rst As Recordset '定义引用记录集的变量。
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select * from dm ")
MyConvert1 = Code
While Not rst.EOF
 MyConvert1 = Replace(MyConvert1, rst("id"), rst("nr"), , 1)
 rst.MoveNext
Wend
End Function