Set CNN = CreateObject("ADODB.Connection")
CNN.Open "Provider=ASEOLEDB;Data Source=192.168.хрю.хрю:кукареку;Initial Catalog=ква;User Id=мяу;Password=гав;"

Set RST = CNN.Execute("sp_help")

S = ""

For Each FLD In RST.Fields
	S = S & FLD.Name & vbTab
Next

WScript.Echo S
N = 0

Do Until RST.EOF Or N > 5
	S = ""

	For Each FLD In RST.Fields
		S = S & FLD.Value & vbTab
	Next

	WScript.Echo S

	RST.MoveNext
	N = N + 1
Loop