Private Sub cmdrunqry_Click()
Dim sqlstr As String
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
Do While Not rs.EOF
sqlstr = "INSERT INTO tblcustomerhistory (txtdeliveryday,txtcustomerid, txtdeliverytime, txtcarrier, txtontime, txtproblem, txtcomments, txttoday)"
sqlstr = sqlstr &...