Dim rs As New ADODB.Connection
AddSaveSQL = "Insert Into shipmentreceipt(client,opepeople,product,price,number,place,time) Values ('" & Trim(Cmbclient.Text) & "','" & Trim(Cmbproduct.Text) & "', _'" & Trim(cmbopepeople.Text) & "','" & Trim(Cmbplace.Text) & "','" & Trim(txtprice.Text) & "','" & Trim(txtnumber.Text) & "','" & Trim(txttime.Text) & "')"
rs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ahsh.mdb;Persist Security Info=False"
rs.Open ""
rs.Execute (AddSaveSQL)

提示sql语句语法错误!哪位帮忙看看哪错了>?

已经解决!