为什么datagrid点击删除后，就将所有记录都删除了（数据库中还有）?

类模块中的删除语句：
Public Sub del()
    Dim sql As String
    sql = "select * from yonghu"
    
    cnn
    Call rsopen1(sql, 1, 3)
    rs1.Delete adAffectCurrent
    rs1.UpdateBatch adAffectAllChapters
End Sub我的datagrid删除是在工具栏中设置了一个删除按钮来控制的，语句如下：
 Dim response As String
        response = MsgBox("确定要删除吗？", vbOKCancel, "确认删除")
        If response = 1 Then
        Dim rs As New ADODB.Recordset
        Set DataGrid1.DataSource = rs
        
        Dim yh As New yonghu
        With yh
        .del
        End With
        Adodc1.Refresh
        DataGrid1.Refresh
        Else
        Exit Sub
        End If运行后，点击删除，datagrid中就一片空白，一条记录都没有了，不知道是错在哪里了，请大侠指正。