参考:
http://www.foxtable.com/webhelp/scr/0396.htm
Dim dr As DataRow
dr = DataTables("表A").Find("身份证号 = '" & e.Form.Controls("TextBox1").Text & "'",)
If dr IsNot Nothing Then '如果找到的话
e.Form.Controls("TextBox2").Text= dr("姓名")
e.Form.Controls("TextBox3").Text= dr("住址")
End If
TextBox1、TextBox2、TextBox3分别是对应的窗口控件的名称,自己改改