未绑定的控件最好用追加查询的方式保存到指定表,楼主写的代码是书本上的标准代码,写法标准,但太长了,还要自定义函数,建议用追加查询的方式,更加方便,且用到的代码也少,不用定义函数.以下是你写的代码:Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from CKMXCX"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew