'先Save
    rsShow.Save "c:\t.rs"
    
Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    
    Set rs = New ADODB.Recordset
    
    rs.Open "c:\t.rs"
    
    Do While Not rs.EOF
        Debug.Print rs.Fields(0).Value
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub