急，在线等！

str1 = " 编号='" & Trim(Text1.Text) & "'"
str1 = str1 & " and 出售日期=#" & Trim(Text3.Text) & "#"
str1 = str1 & " and 出售时间=#" & Trim(Text4.Text) & "#"
str1 = "select * from 出库明细表 where" & str1
rs.Open str1, conn, adOpenKeyset, adLockPessimistic
If Not rs.EOF Then
rs.Delete
rs.Update
End If
rs.Close
conn.Close 运行后表中数据没有删除！