' ' 使用しているフォームを元にレコードセットを作る ' RecordsetClone ' Dim rs As Recordset Set rs = Me.RecordsetClone debug.Print rs!CD rs.Close