<docbook><section><title>CodeSamplesVBS</title><bridgehead class="http://www.w3.org/1999/xhtml:h2">Example using Microsoft OLE DB Provider for ODBC (MSDASQL)</bridgehead>
<para> </para><programlisting>dim conn, rs, SQL, connStr
set conn = CreateObject(&quot;ADODB.Connection&quot;)
set rs = CreateObject(&quot;ADODB.RecordSet&quot;)
conn.ConnectionString = &quot;DSN=access;UID=;PWD=&quot;
conn.Open()
rs.Open &quot;SELECT * FROM table&quot;, conn, 3, 3
Do While Not rs.EOF 
 wscript.echo rs.Fields(0).Value  
 rs.MoveNext 
Loop 
</programlisting><bridgehead class="http://www.w3.org/1999/xhtml:h2">Example using OpenLink OLE DB Provider for ODBC (OpenLinkODBC)</bridgehead>
<para> </para><programlisting>dim conn, rs, SQL, connStr
set conn = CreateObject(&quot;ADODB.Connection&quot;)
set rs = CreateObject(&quot;ADODB.RecordSet&quot;)
conn.ConnectionString = &quot;Provider=OpenLinkODBC;DSN=access;UID=;PWD=&quot;
conn.Open()
rs.Open &quot;SELECT * FROM table&quot;, conn, 3, 3
Do While Not rs.EOF 
 wscript.echo rs.Fields(0).Value  
 rs.MoveNext 
Loop 
</programlisting></section></docbook>