Sub b1_mysql抽出goods()
    Application.ScreenUpdating = False '画面を固定
    Sheets("商品").Select              '「商品」シートの選択
    Range("p1:t100").ClearContents     'シートのクリア
Dim i As Long
Dim mySQL As String

Call a02_InODBC

For ii = 1 To 1
Select Case ii
Case 1
mySQL = "select * from goods order by com,renban asc"
        
    Set rs = cn.Execute(mySQL)
    If rs.EOF Then
        MsgBox "ﾃﾞｰﾀが、登録されていません"
    Else
        With rs
            'フィールド
            For i = 1 To .Fields.Count
                Cells(1, i + 15).Value = .Fields(i - 1).Name
            Next
            'レコード
            Range("p2").CopyFromRecordset rs
        End With
    End If

End Select
Next

Call a09_OutODBC

    Application.ScreenUpdating = True  '画面の固定を解除
End Sub