<%@ WebService Language="VB" Class="MyFirstClass" %>

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Services

Public Class MyFirstClass

<WebMethod()> Public Function GetDesc(CategoryID as String) As String

Dim Connection As SQLConnection = New SQLConnection("server=localhost;uid=sa;pwd=;database=NorthWind")

Dim strSQL as String = "select Description FROM Categories WHERE
CategoryID = Convert(Varchar,'" & CategoryID & "')"

Dim Command As SQLCommand = New SQLCommand(strSQL, Connection)

Dim DS As New DataSet
Command.FillDataSet(DS, "Reviews")

Dim Description as String

If DS.Tables("Reviews").Rows.Count > 0 Then
Description = DS.Tables("Reviews").Rows(0)("Review").ToString()
Else
Description = "no data"
End If

Return Description

End Function

End Class


What is Wrong with that code ??????


Thanx Guy.