enlazar dos procedimientos en un boton?

[mamicho]

hola amigos, quiero enlazar dos procedimientos almacenados que tengo en un boton que se
llama agregar, cada proce. guarda en tablas separadas los registros pero necesito rescatar
el id del primero para pasarselo al segundo me explico:

primer procedure:


CREATE procedure spAgregaContratista
(

@cont_fantasia nvarchar(50)


)
as
insert into contratista (cont_fantasia)
values(@cont_fantasia)


que agrega a la tabla :

contratista
cont_codigo int pk,<----------------- este es autonumeriko por eso no lo pongo en el procedure spAgregaContratista "es el ke kiero rescatar"
cont_fantasia nvarchar(50)




segundo procedure:


CREATE procedure spAgregaContxProyecto
(

@cxp_proyecto nvarchar(50),
@cxp_contratista int

)
as
insert into contxproyecto (cxp_proyecto ,cxp_contratista)
values(@cxp_proyecto ,@cxp_contratista)
GO


que agrega a la tabla :

contxproyecto
cxp_id int, autonumeriko
cxp_proyecto nvarchar(50),
cxp_contratista int fk_de_contratista <-------------------------- aqui es donde kiero dejar el valor ke rescate de arriba


ahora el boton agregar:



cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaContratista"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd

Dim cont_fantasia As New SqlParameter("@cont_fantasia", SqlDbType.VarChar, 50)



da.InsertCommand.Parameters.Add(cont_fantasia)
da.InsertCommand.Parameters(0).Value = txtNombre.Text


Try
Using cn
cn.Open()
da.InsertCommand.ExecuteNonQuery()

da.Dispose()
cmd.Dispose()
End Using

Catch ex As Exception


End Try






cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaContxProyecto"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd


Dim cxp_proyecto As New SqlParameter("@cxp_proyecto", SqlDbType.NVarChar, 50)
Dim cxp_contratista As New SqlParameter("@cxp_contratista", SqlDbType.Int)





da.InsertCommand.Parameters.Add(cxp_proyecto)
da.InsertCommand.Parameters(0).Value = Label9.Text

da.InsertCommand.Parameters.Add(cxp_contratista)
da.InsertCommand.Parameters(1).Value = "aqui es donde kiero mandar el cont_codigo de contratista" si lo pudiera rescatar delguna manera !!!!!!

Try
Using cn
cn.Open()
da.InsertCommand.ExecuteNonQuery()

da.Dispose()
cmd.Dispose()
End Using

Catch ex As Exception

End Try


bueno amigos ojala me puedan dar una ayuda gracias.