如果你是双向关联的话,可以直接将这个控件绑定到字段:
表B.表A.字段名
如果不是,就按bin的代码做,代码写在表B的CurrentChanged事件:
If Forms("窗口名").Opened Thn
Dim dr As DataRow = datatables("表A").Find("C列='" & e.Table.current("C列") & "'")
If dr IsNot Nothing Then
Forms("窗口名").controls("TextBox1").Value = dr("A1")
end if
End if