VBからストアド実行時SQL Server上のエラーを制御できないか？

    Dim con As SqlConnection = Nothing

    Try

        con = New SqlConnection("接続文字列")

        con.Open()



        Dim command1 As SqlCommand = New SqlCommand("AAA", con)

        command1.CommandType = CommandType.StoredProcedure



        command1.ExecuteNonQuery()



        MessageBox.Show("正常終了")



    Catch ex As SqlException



        MessageBox.Show(ex.Message)



    Finally



        If con IsNot Nothing Then



            con.Close()



        End If



    End Try