求解

你都delete了，他不删除干啥？

虽然没用过ADODB，但我感觉，你的“SQL=”这句话的sql本身就是一个删除功能的sql语句，而且下一行cnn.Execute就已经把指定id的订单删掉了，所以下面的if里面为什么还要再删一次？另外，删除语句应该不会跟结果集有关系的，你的代码中也没有给rs赋值，但是你在if里面就直接开始用rs了是几个意思？

仅仅给你参考下。
Private Sub Command1_Click()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户.mdb;Persist Security Info=False" '链接数据库
’If rs.State = 1 Then rs.Close'这句是如果数据库打开有其它操作
　　rs.Open "select * from 订单信息表 where ddh='" & Text1 & "'", cnn, 3, 3
Delsc = 0
　　If rs.RecordCount <> 0 Then '如果记录集不为空
　　　　For i = 1 To rs.RecordCount '查询从第一条到最后一条
　　　　　　rs.Delete
　　　　　　rs.MoveNext
　　　　Next
　　　　MsgBox "已删除符合" & Text1 & "的全部数据！"
　　Else
　　　　MsgBox "没有符合该数据的记录，请重新输入"
　　　　Text1 = "": Text1.SetFocus
　　End If
End Sub