Hacer un insert que me guarde en varias tablas sus respectivos datos, ¿Visual basic y sql server?

Este es mi código pero me sale Error

  If resultado > 0 Then
            sql = "update tbl_fruta set nomFruta=' " & NomFrutaTextBox.Text & " ' where stockActual=' " & StockActualTextBox.Text & " ' "

            sql = "update tbl_Medida set nomb_Medida=' " & Nomb_MedidaComboBox.Text & " ' where nomb_Medida=' " & Nomb_MedidaComboBox.Text & " ' "
        ElseIf resultado = 0 Then
sql = "insert into tbl_fruta (nomFruta,stockActual) values (' " & NomFrutaTextBox.Text & " ', ' " & StockActualTextBox.Text & " ' "

sql = "insert into tbl_Medida (nomb_Medida) values (' " & Nomb_MedidaComboBox.Text & " ')"
                   End If
        End If

        conexion.Open()
        comando = New SqlCommand(sql)
        comando.Connection = conexion
        Comando. ExecuteNonQuery()
        Conexión. Close()