下面的可以一试!!
Private Sub CmdAdd_Click()
dim dataField()
dim dataValue()
datafield=arry("学号","姓名","姓名","姓名")
datavalues=arry("123","张三",#9/9/1999#,"一班")
Data1.Recordset.AddNew datafield,datavalues
Data1.Recordset.Update
End Sub
Private Sub CmdAdd_Click()
dim dataField()
dim dataValue()
datafield=arry("学号","姓名","姓名","姓名")
datavalues=arry("123","张三",#9/9/1999#,"一班")
Data1.Recordset.AddNew datafield,datavalues
Data1.Recordset.Update
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货