l<%@ Page language="VB"
debug="true"%>
l<%
lConst adOpenStatic = 3
lDIM nStart AS Double
lDIM oDS AS System.Data.DataSet
lDIM oOleDB AS
System.Data.OleDb.OleDbConnection
lDIM oSqlClient AS
System.Data.SqlClient.SqlConnection
lDIM oOleDA AS System.Data.OleDb.OleDbDataAdapter
lDIM oSqlDA AS System.Data.SqlClient.SqlDataAdapter
lDIM oRows AS System.Data.DataRowCollection
lDIM cFields AS String
lcFields="_ID,Appointment_Notes
FROM Visit_"
lcFields="* FROM
Visit_"
l
lnStart=TIMER
loDS=new System.Data.DataSet()
loDS.Clear
lResponse.Write("Created data set
"+CSTR(TIMER-nStart)+"<br>")
loOleDB=new
System.Data.OleDb.OleDbConnection("Provider=SQLOLEDB;"+ _
l
"SERVER=(local);DATABASE=test;UID=user;Password=pass;")
loSqlClient=new System.Data.SqlClient.SqlConnection(
_
l
"SERVER=(local);DATABASE=test;UID=user;Password=pass;")
l