dim ws,con,rs

set ws = CreateObject("WScript.Shell")

set con = CreateObject("ADODB.Connection")

set rs = CreateObject("ADODB.RecordSet")
con.ConnectionString="capital3"
con.Open
rs.open "select * from capital",con,,3

If Not rs.BOF Then
    rs.MoveFirst
    While Not rs.EOF
        wscript.echors.Fields("name").value
        rs.MoveNext
    Wend

End If
rs.Close
con.Close

set rs = Nothing

set con = Nothing

set ws = nothing