リスト６：先頭レコードへ移動（|<<） Private Sub cmdMoveFirst_Click() On Error GoTo MoveFirstErr 　datAddress.Recordset.MoveFirst 　Exit Sub MoveFirstErr: 　DbErrorMsg End Sub 本文へ戻る