Database

Create Proc Insert_Client
(@inClientName varchar(30),
@inContactPerson Varchar(30),
@inClientAddress Varchar(38),
@inClientTelephone varchar(15),
@inClient_Cell_NO varchar(15),
@inSerialNumber varchar(30),
@inProduct_Status int,
@inClient_Email varchar(34))

as 

insert into Clients (Client_Name,Contact_Person,Purchase_date,Client_Address,Client_Telephone, Client_Cell_NO,SerialNummber,Product_Status,Client_Email)
Values(@inClientName,@inContactPerson,Getdate(),@inClientAddress,@inClientTelephone, @inClient_Cell_NO, @inSerialNumber,@inProduct_Status,@inClient_Email)

Public Sub AddContacts(ByVal ClientName As String, ByVal ContactPerson As String, _
    ByVal ClientAddress As String, ByVal ClientTelephone As String, _
    ByVal Client_Cell_NO As String, ByVal SerialNumber As String, _
    ByVal Product_Status As Integer, ByVal Client_Email As String)
        Dim con As SqlConnection

        Dim cmd As New SqlCommand
        cnClients = New SqlConnection
        'Declaring the Parameters 
        Dim prmClientName As New SqlParameter
        Dim prmContactperson As New SqlParameter
        Dim prmClientAddress As New SqlParameter
        Dim prmTelephone As New SqlParameter
        Dim prmClient_Cell_No As New SqlParameter
        Dim prmSerialNumber As New SqlParameter
        Dim prmProduct_status As New SqlParameter
        Dim prmClient_Email As New SqlParameter
        con = New SqlConnection(constr)
        cmd.Connection = con

        'Adding a Paramer
        cmd.Parameters.Add(prmClientName)
        With prmClientName
            .ParameterName = "inClientName"
            .SqlDbType = SqlDbType.VarChar
            .Size = 30
            .Value = ClientName
        End With

        'Adding a Paramer
        cmd.Parameters.Add(prmContactperson)
        With prmContactperson
            .ParameterName = "inContactperson"
            .SqlDbType = SqlDbType.VarChar
            .Size = 30
            .Value = ContactPerson

        End With

        'Adding a Paramer
        cmd.Parameters.Add(prmClientAddress)
        With prmClientAddress
            .ParameterName = "inClientAddress"
            .SqlDbType = SqlDbType.VarChar
            .Size = 38
            .Value = ClientAddress
        End With

        'Adding a Paramer
        cmd.Parameters.Add(prmTelephone)
        With (prmTelephone)
            .ParameterName = "inClientTelephone"
            .SqlDbType = SqlDbType.VarChar
            .Size = 15
            .Value = ClientTelephone

        End With

        'Adding a Parameter
        cmd.Parameters.Add(prmClient_Cell_No)
        With prmClient_Cell_No
            .ParameterName = "inClient_Cell_No"
            .SqlDbType = SqlDbType.VarChar
            .Value = Client_Cell_NO
            .Size = 15
        End With

        'Adding a Parameter
        cmd.Parameters.Add(prmSerialNumber)
        With prmSerialNumber
            .ParameterName = "inSerialNumber"
            .SqlDbType = SqlDbType.VarChar
            .Value = SerialNumber
            .Size = 30
        End With

        'Adding a Parameter
        cmd.Parameters.Add(prmProduct_status)

        With prmProduct_status
            .ParameterName = "inProduct_status"
            .SqlDbType = SqlDbType.Int
            .Value = Product_Status
            .Size = 4
        End With

        'Adding Parameter 
        cmd.Parameters.Add(prmClient_Email)

        With prmClient_Email
            .ParameterName = "inClient_Email"
            .SqlDbType = SqlDbType.VarChar
            .Value = Client_Email
            .Size = 30
        End With

        cmd.CommandText = "Execute Insert_Client"
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()

Dim WS As Admin_DAL.Clients
Try
    WS = New Admin_DAL.Clients

    WS.AddContacts(txtname.Text, txtcontactperson.Text, txtadress.Text, txttelephone.Text, txtcellnumber.Text, txtserialnumber.Text, CInt(cmbstatus.Text), txtemail.Text)

Catch ex As SqlClient.SqlException
    MsgBox(ex.Message)



End Try

Line1:Incorrect syntax near 'inClientName'.