VB Adodc控件 删除记录时错误:对象变量或 With 块变量没有设置

主要模块代码：
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
主要窗体代码：
Dim UserName As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\School.mdb"
rs.Open "select * from Login", conn, 2, 2
rs.Find "姓名= '" & Trim(UserName) & "' "
Adodc1.Recordset.Delete '在这里出错
Adodc1.Recordset.Update

我的程序的目的是：
打开位于App.Path & "\School.mdb"的数据库
打开表“Login”
删除姓名那一列的值为“UserName”的那一行
打开表“Student”
'上面的代码中已省略此部分，如能在回答中加入，有加分！
删除姓名那一列的值为“UserName”的那一行
'上面的代码中已省略此部分，如能在回答中加入，有加分！

rs对象变量
Adodc1 控件
2个都不一样~~你用RS找到数据 却用另一个去删除 当然有问题