Set Cn = CreateObject("ADODB.Connection")
strConnection = _
	"Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=c:\temp\販売管理B.mdb;"

	cn.Open strConnection

Set Rs = Cn.OpenSchema( 20 )
' Set Rs = Cn.OpenSchema( 20, Array( Empty, Empty, Empty, "TABLE" ) )

strData = ""
For i = 0 to Rs.Fields.Count - 1
	if i <> 0 then
		strData = strData & " : "
	end if
	strData = strData & Rs.Fields( i ).Name
Next
Wscript.Echo strData

Do while NOT Rs.EOF
	strData = ""
	For i = 0 to Rs.Fields.Count - 1
		if i <> 0 then
			strData = strData & " : "
		end if
		strData = strData & Rs.Fields( i ).Value
	Next
	Wscript.Echo strData
	' 2 : テーブル名
	' 3 : 種別
	Rs.MoveNext
Loop

Rs.Close
Cn.Close