Set myDB = OpenDatabase(myMDB_FullName)
'店舗一覧を変数に
Set myRECORD = myDB.OpenRecordset(mySQLObName(0))
With myRECORD
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
cntTenpo = cntTenpo + 1
Select Case IsNull(myRECORD(0).Value)
Case False
myStrStore(cntTenpo, 0) = CStr(myRECORD(0).Value)
Case True
myStrStore(cntTenpo, 0) = ""
End Select
Select Case IsNull(myRECORD(1).Value)
Case False
myStrStore(cntTenpo, 1) = CStr(myRECORD(1).Value)
Case True
myStrStore(cntTenpo, 1) = ""
End Select
Select Case IsNull(myRECORD(2).Value)
Case False
myStrStore(cntTenpo, 2) = CStr(myRECORD(2).Value)
Case True
myStrStore(cntTenpo, 2) = ""
End Select
.MoveNext
Loop
End If
End With
Set myRECORD = Nothing
myDB.Close
Set myDB = Nothing