按钮的Click事件:
Tables("A表").Current("产品名称")=e.Form.Controls("TextBox1").text
Tables("A表").Current("产品划分")=e.Form.Controls("TextBox2").text
Tables("A表").Current("日期")=e.Form.Controls("DateTimePicker1").Value
DataTables("A表").Save()