Public Sub Sample() Dim myDB As Database Dim myRS As DAO.Recordset Dim myQuery As QueryDef Dim mySQL As String 'SQLステートメントを定義する mySQL = "SELECT * FROM 社員テーブル;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb '…