CLASS missing after ADD ServiceReference

I have created two console applications. The first is a WCF server console application. The second is a client to Get info from the WCF server. After starting the WCF server and Adding a ServiceReference to the Client, the Server class is missing from the ServiceReference, See image.
Missing-class.pngThe Server application has four classes. I am assuming I have done something incorrectly in one or more of those classes. The classes are shown below.
Imports System.ServiceModel
Imports System.ServiceModel.Description
Module Module1
    Dim uri As New Uri("http://localhost:8240/demo/wcf/samples")
    Dim host As New ServiceHost(GetType(SpecSheetService), uri)

    Sub Main()
            host.AddServiceEndpoint(GetType(ISpecSheet), New WSHttpBinding, "SpecSheetService")
            Dim behavior As New ServiceMetadataBehavior()
            behavior.HttpGetEnabled = True

            Console.WriteLine("The service has been started.")
            Console.WriteLine("Press the ENTER key to terminate service.")
        Catch ex As CommunicationException
            Console.WriteLine("Error: {0}", ex.Message)
        End Try
    End Sub

End Module

Open in new window

Imports System.ServiceModel
Imports System.Runtime.Serialization

<DataContract()> _
Public Class SpecSheet
    Private _LotNoString As String
    <DataMember()> _
    Public Property LotNoString As String
            Return _LotNoString
        End Get
        Set(value As String)
            _LotNoString = value
        End Set
    End Property

    Private _SpecSheetString As String
    <DataMember()> _
    Public Property SpecSheetString As String
            Return _SpecSheetString
        End Get
        Set(value As String)
            _SpecSheetString = value
        End Set
    End Property
End Class
<ServiceContract(Namespace:="http://demo.wcf.samples")> _
Public Interface ISpecSheet
    <OperationContract()> _
    Function GetSpecSheet(ByVal LotNoString As String) As String
End Interface

Open in new window

Public Class SpecSheetService
    Implements ISpecSheet

    Public Function GetSpecSheet(LotNoString As String) As String _
        Implements ISpecSheet.GetSpecSheet
        Return DataAccess.GetSpecSheet(LotNoString)
    End Function
End Class

Open in new window

Public Class DataAccess
    Public Shared Function GetSpecSheet(ByVal LotNoString As String) As String
        Return "Spec sheet base 64 xxxx for Lot No: " & LotNoString
    End Function
End Class

Open in new window

I would appreciate your assistance in pinpointing my error.
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

It's all correct. To create the client proxy which will call the service, just do this:
Dim client As New ServiceReference1.SpecSheetClient();
MessageBox.Show(client.GetSpecSheet("the input string"));

Open in new window

Note that the client proxy is called SpecSheetClient

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mpdillonAuthor Commented:
You are exactly correct.
I was following an example on the web. In that example the client program contained a Class reference that my code did not. Thank you for clearing up my misunderstanding.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.