Mostrar error al tratar de borrar un registro en otra tabla!

[Aquaventus]

Hola davidalonsso05, Primero arregla tu condicional para comparacion de string :

Código vb:

If Not String.IsNullOrEmpty(t4.Text) Then
 

Segundo, no es la forma correcta de trabajar de esa manera con el procedure, te dejo este ejemplo :

Código vb:

Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;" & _
                                                   "Initial Catalog=northwind")
Dim salesCMD As SqlCommand = New SqlCommand("SalesByCategory", nwindConn)
salesCMD.CommandType = CommandType.StoredProcedure
 
Dim myParm As SqlParameter = salesCMD.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15)
myParm.Value = "Beverages"
'...
 

Tercero, si quieres trabajar así tu query anda mal, deberia ser así :

Código vb:

sql = "exec sp_borra_tienda '" + id + "'"
 

Cuarto, para qué le pasas el valor de la ejecución a la variable res?, si no vas a trabajar con ella después :

Código vb:

com.ExecuteNonQuery
 

Espero te sirva. Saludos!.