这样试试:
e.Form.DropDownBox.Value = "值"
e.Form.DropDownBox.WriteValue()
或者:
e.Form.DropDownBox.Value = "值"Tables("表名").Current("列名") = "值"