می خوام یک وب سرویس درست کنم ؟

[bastam]

سلام
وب سرویسی می خوام که از بانک اکسس اطلاعات رو واکشی کنه !!
لطفا یه کدی چیزی بزارین .
من از این کد استفاده می کنم ولی error میده.

Public Function data() As String

Dim result As String

Dim con1 As OleDbConnection
Dim cmd As OleDbCommand
Dim read As OleDbDataReader
con1 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\db1.mdb;user Id=Admin")
con1.Open()
cmd = New OleDbCommand("select famil from [order] WHERE id=1", con1)
read = cmd.ExecuteReader()
result = read("famil")
read.Close()
Return result
' Return Session("h")

End Function