主题：请问各位大师，下面的代码如何写成自定义函数

改成

Dim frm = Forms("窗口1")
newName = frm.Controls("Text姓名").Value   'newName?newsfz  为全局变量
newsfz = frm.Controls("Text身份证").Value
If newsfz <> oldsfz  Then   '如果修改了身份证号码
    For Each dt As DataTable In DataTables
        If dt.name <> "Users" And dt.name <> "词典" And dt.name <> "身份证籍贯编码"  And dt.name <> "授权" And dt.name <> "职称统计表"  And dt.name <> "培训信息"  Then
            Dim drs As List(Of DataRow)
            drs = DataTables(dt.name).Select("[身份证号码] = '" & oldsfz & "'" )
            For Each dr As DataRow In drs
                dr("姓名") =newName
                dr("身份证号码") =newsfz
            Next
        End If
    Next
End If