[size=2][color=#0000ff]Imports[/color][/size][size=2] System.Web.Services
[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Data.OLedb
[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Data
<WebService(Namespace:=[/size][size=2][color=#800000]"http://tempuri.org/"[/color][/size][size=2])> [/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Class[/color][/size][size=2] WebService
[/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Web.Services.WebService
<WebMethod()> _
[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Function[/color][/size][size=2] ListCustomers() [/size][size=2][color=#0000ff]As[/color][/size][size=2] DataSet
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] myConnection [/size][size=2][color=#0000ff]As[/color][/size][size=2] OleDbConnection
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] myDataAdapter [/size][size=2][color=#0000ff]As[/color][/size][size=2] OleDbDataAdapter
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] myDataSet [/size][size=2][color=#0000ff]As[/color][/size][size=2] DataSet
myConnection = [/size][size=2][color=#0000ff]New[/color][/size][size=2] OleDbConnection _
([/size][size=2][color=#800000]"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False; Initial Catalog=Northwind;Data Source=TEST\TEST;Use Procedure for Prepare=1;Auto [/color][/size]
[size=2][color=#800000]Translate=True;Packet Size=4096;Workstation ID=TEST1;Use Encryption for Data=False;Tag with column collation when possible=False"[/color][/size][size=2])
myDataAdapter = [/size][size=2][color=#0000ff]New[/color][/size][size=2] OleDbDataAdapter([/size][size=2][color=#800000]"SELECT * FROM customer"[/color][/size][size=2], myConnection)[/size]
[size=2]myDataSet = [/size][size=2][color=#0000ff]New[/color][/size][size=2] DataSet()
myDataAdapter.Fill(myDataSet, [/size][size=2][color=#800000]"Customer"[/color][/size][size=2])
[/size][size=2][color=#0000ff]Return[/color][/size][size=2] myDataSet
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Function
End[/color][/size][size=2] [/size][size=2][color=#0000ff]Class
[/color][/size]