Something

    Dim commSQL As New SqlCommand
    Dim daadSQL As New SqlDataAdapter


    commSQL.CommandType = CommandType.StoredProcedure
    commSQL.Connection = New SqlConnection(New AppSettingsReader().GetValue("CONEXAO", GetType(String)).ToString)
    commSQL.Connection.Open()
    commSQL.CommandText = "SP_SSC_INSTANCIA"
    daadSQL.InsertCommand = commSQL
    commSQL.Parameters.Add("@car_nome", carnome)
    commSQL.Parameters.Add("@ctx_numero", ctxnumero)
    commSQL.Parameters.Add("@cli_codigo", cliCodigo)
    commSQL.Parameters.Add("@ist_valor", istvalor)
    commSQL.ExecuteNonQuery()
    commSQL.Connection.Close()