請問為什麼在這裏不能用rs.close

 Dim cn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Dim stSql As String
       Set cn = Application.CurrentProject.Connection
    stSql = "SELECT * FROM MaterialDetails WHERE [MaterialID] ='" & ME.TEXT1 & "' "
    
    rs.Open stSql, cn, adOpenKeyset, adLockPessimistic

    Set Me.子窗体.Form.Recordset = rs
       
        Set rs = Nothing
        Set cn = Nothing
         rs.Close