Dim cn1 As ADODB.Connection
Set cn1 = New ADODB.Connection
Set cn1 = CurrentProject.Connection
Dim cm1 As New ADODB.Command
cm1.ActiveConnection = cn1
cm1.CommandText = "insert [O-订单单头](客户简称,合同号,) " & _
"values('" & me.客户简称 & "','" & Me.合同号 & "')"
cm1.Execute