Sub b1_accdb抽出PL()
    Sheets("sheet1").Select
    Range("b1:i200").ClearContents
Dim i As Long
Dim mySQL As String

Call a01_InODBC

For ii = 1 To 2
Select Case ii
Case 1
   
 mySQL = "select min(ng) as 年月,max(ng) as 年月2,max(kamoku) as 科目," & _
         "sum(tokyo) as 東京,sum(osaka) as 大阪,sum(kobe) as 神戸," & _
         "sum(total) as 合計,min(id) as IDコード from PL" & _
         " where ng between " & Sheets("sheet1").Range("a4").Value & "" & _
         " and " & Sheets("sheet1").Range("a7").Value & ""
 mySQL = mySQL & " group BY kcode order by kcode asc"
    
    Set rs = cn.Execute(mySQL)
    With rs
        'フィールド名
        For i = 1 To .Fields.Count
            Cells(1, i + 1).Value = .Fields(i - 1).Name
            '行1,列2に抽出
        Next
        'レコード
            Range("b2").CopyFromRecordset rs
    End With
 'myCon.Close
   
End Select
Next

Call a09_OutODBC
End Sub