用
dim s as string = forms("窗口名").dropdownbox.BindingField
dim s1 as string() = s.split(".")
s1(0)===>表名
s1(1)===>列名