Option ExplicitPrivate Const adOpenDynamic As Long = 2 Private Const adLockOptimistic As Long = 3 Private Const adStateClosed As Long = 0Sub ボタン1_Click()Call DataGetSampleEnd Sub '========================================================…