高手请进！问题很简单，非常容易拿分！

Question

各位高手：
先看几行代码：
Dim conn As New ADODB.Connection
Dim connstr As String
Dim rs As New ADODB.RecordsetPrivate Sub Comy_Click()
   rs.Open "select 公司名称,公司地址,联系方式,联系人,经办人,订货时间,是否付款,订货数量,是否进行了回访 from 客户资料", conn, adOpenKeyset, adLockOptimistic
   rs.Find "公司名称=" & "'" & Txtuno & "'"
   If Not rs.EOF Then
      rs.Delete
      
      
      MsgBox "已成功删除，请继续删除！"
      
      
   Txtname.Text = ""
   End If
   rs.Close
   Set rs = Nothing
End SubPrivate Sub Comf_Click()
   Unload Form3
   Form1.Show
   conn.Close
   Set conn = Nothing
End SubPrivate Sub Form_Load()
   connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\神州\客户数据.mdb;Persist Security Info=False "
   conn.Open connstr
End Sub
这是一些vb和acess相连接的源代码，目的是删除一些客户，请高手们给我解释一下那个连接代码的意思，比如Dim conn As New ADODB.Connection
Dim connstr As String
Dim rs As New ADODB.Recordset这些都是我从网上找的，具体的意思我都不知道，New ADODB.Connection，New ADODB.Recordset这都是些什么类型的定义啊，或者高手们给我拓展一下知识面，还有什么等等
还有rs.open具体都怎么用，是一个怎么样的形式，还有没有别的形式，添加或者删除都是什么形式的，或者直接把和这些有管的知识给我贴一下，让我有个了解，我做的一些小程序都是从网上人家高手给的源代码，我
自己套的，这样我发现自己也没有什么收获，还是自己掌握比较好，请高手们给我一个详细的介绍，最后在帮我看一下上便的源代码还有那里不对，我现在还没有实现，谢谢！

Answer 1

為什麽不直接用Delete的SQL語句刪除？你這樣數萬筆資料的話效率不是很低啊。

Answer 2

rs.Delete后Update一下，更新数据......
If Not rs.EOF Then
    rs.Delete
    rs.Update
......

Answer 3

大家都嫌简单不说啦，我多嘴一下
'定义一个ADODB的连接，说明连接方式
Dim conn As New ADODB.Connection '定义一个ADODB结果集。（想想，你用数据库总要返回一个记录、结果吧）
Dim rs As New ADODB.Recordset'这是申明一个新的变量。刚刚Dim完后，要New一下，面向对象嘛。。
New ADODB.Connection，New ADODB.Recordset
'用什么方式连接、打开数据库。
rs.open格式为： RS.OPEN SQL,CONN,A,B 这个参数的SQL就是比如connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\神州\客户数据.mdb;Persist Security Info=False "。后面三个参数网上很多啦，就不写了，呵呵。