Problema con los WebServices para inserción de Datos en una bd en SQL Server

[mina_1119]

Hola Buen Dia soy algo nueva con Web Services y necesito que me ayuden; mi problema es el siguiente: cree un web service para insertar los datos a una tabla que almacena contratos y quisiera q me ayudaran a saber q puse mal:

Public Function almacena_contratista(ByVal contrato As String, ByVal comp As String, ByVal dir As String, ByVal activo As Integer)
Dim a As String = ConfigurationManager.ConnectionStrings("construcci on_sql").ConnectionString
Dim c As New SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet
c.Connection = New SqlConnection(a)
c.CommandType = CommandType.StoredProcedure
c.CommandText = "inserta_contratista"
c.Parameters.AddWithValue("@contrato", contrato)
c.Parameters.AddWithValue("@compañia", comp)
c.Parameters.AddWithValue("@direccion", dir)
c.Parameters.AddWithValue("@activo", activo)
da.SelectCommand = c
c.ExecuteNonQuery()
da.Fill(ds)


Y por ultimo como mandar a llamar los datos en una pagina asp.net con lenguaje VB con el evento click. Gracias de antemano a todos