Удаление данных из нескольких таблиц в VB.NET

---

Я хочу удалить полные данные из нескольких таблиц. Ниже приведен мой код, который всегда будет блокировать else без каких-либо ошибок.

Что я уже пробовал:

Private Sub CleanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CleanToolStripMenuItem.Click

        Dim result As DialogResult = MessageBox.Show("", "Confirm Delete?", MessageBoxButtons.YesNo)

        If (result = DialogResult.OK) Then

            db_connect.Open()

            Dim trans As SqlClient.SqlTransaction = db_connect.BeginTransaction()
            Dim cmd As SqlClient.SqlCommand = db_connect.CreateCommand()

            Try 'delete from all tables
                cmd.CommandText = "delete * from customer"
                cmd.ExecuteNonQuery()

                cmd.CommandText = "delete * from account"
                cmd.ExecuteNonQuery()

                cmd.CommandText = "delete * from employee"
                cmd.ExecuteNonQuery()

                trans.Commit()
            Catch   'got an error - roll back the transaction  
                trans.Rollback()

            Finally 'close the connection
                db_connect.Close()

            End Try

        Else
            MessageBox.Show("else")

        End If
    End Sub
End Class

---