DB.Execute "insert into 设计变更管理台帐 values(#" & DTPicker1 & _
"#,'" & Text2.Text & _
"','" & Text3.Text & _
"','" & Text4.Text & _
"','" & str1 & _
"','" & str2 & _
"','" & Text5.Text & _
"','" & Combo1 & _
"','" & Text6.Text & _
"','" & Text7.Text & _
"','" & str3 & _
"','" & Text8.Text & _
"','" & Text9.Text & "')"