oRecordset = NewObject("adodb.recordset") oConnection = NewObject("adodb.connection") With oConnection .ConnectionString = 'Provider=SQLOLEDB;Data Source=servernamehere;Trusted_connection=Yes' && Or user id and password .Open ENDWITH oRecordset.Open("SELECT * from pubs.dbo.titles", oConnection ) do while !orecordset.eof() ? oRecordset.Fields(1).Value oRecordset.MoveNext enddoCetin