Forms("窗口1").Controls("TextBox1").BindingField = "产品.产品名称"
Forms("窗口1").Controls("TextBox2").BindingField = "产品.订单.数量"

上述代码将TextBox1绑定到“产品”表的“产品名称”列，将TextBox2绑定到关联表“产品.订单”的“数量”列。

示例二

Dim s As String = e.Form.Controls("TextBox1").BindingField
If s > "" Then
    Dim p As Integer = s.LastIndexOf(".")
    Dim t As String = s.SubString(0, p)
    Dim c As String = s.SubString(p + 1)
    MessageBox.Show("绑定表: " & t & " 绑定列: " & c)
End If

上述代码获得TextBox1绑定的表名和列名。