Dim sql
Dim conn  As ADODB.Connection
Dim masr As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\Database1.accdb;persist security info=false;"

sql = "Insert Into 收据 (日期,缴费单位,款项内容,收款方式,人民币大写,￥,收款单位盖章,收款人签章,备注)"
sql = sql & "Values('" & Format(日期.Value, "yyyy-MM-dd") & "','" & 款项内容.Value & "'," & 收款方式.Value & "','" & 收款方式.Value & "','" & 人民币大写.Value & "','" & Text22.Value & "','" & 收款单位盖章.Value & "','" & 收款人签章.Value & "','" & 备注.Value & "')"
conn.Execute sql



......................