Listing 2: Code in ADOExcelUDL.vbs That Uses a Universal Data Link to Set Up an ADO Connection
' ******* BEGIN CALLOUT A *******
Set oConn = CreateObject("ADODB.Connection")

' Use a Universal Data Link connection.
oConn.ConnectionString = "File Name=C:\temp\xls.udl"
' ******* END CALLOUT A *******

' ******* BEGIN CALLOUT B *******
' Set up the Excel provider connection for Excel 2000 or Excel 2003
' oConn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
' "Data Source=" & SourceXLS & ";" & _
' "Extended Properties=""Excel 8.0;HDR=YES;"""

' Set up the Excel provider connection for Excel 2007.
' oConn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
' "Data Source=" & SourceXLS & ";" & _
' "Extended Properties=""Excel 12.0;HDR=YES;"""
' ******* END CALLOUT B *******

Const adUseClient=3
oConn.CursorLocation=adUseClient